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SUMMARY 


Arguments are presented supporting the proposition that the development and 
the selective utilization of prediction methods which are restricted to two-dimen- 
sional (2-d) transient large-deflection elastic-plastic responses of engine rotor 
burst fragment containment/deflector structures are useful and advisable for para- 
metric and trends' studies . In conjunction with properly-selected experimental 
studies of rotor-burst fragment interaction with actual containment and/or deflector 
structure — wherein three-dimensional effects occur — one may be able to develop 
convenient rules-of- thumb' to estimate certain actual 3-d containment/deflection 
structural response results from the use of the very convenient and more efficient 
but simplified 2-d response prediction methods. 

Accordingly, the collision- imparted velocity method CCIVM) for predicting the 

collision- interaction behavior of a fragment which impacts containment/deflector 

structures has been combined with a modified version of the JET 3C two-dimensional 

structural response code to predict the transient large-deflection, elastic-plastic 

responses and motions of containment/deflector structures subjected to impact by 

one or more idealized fragments. Included are the effects of friction between each 

fragment and the attacked structure. A single type of fragment geometry has been 

selected for efficiency and convenience in these fragment/structure interaction and 

response calculations, but the most important fragment parameters, it is believed, 

have been retained; n fragments each with its own in , I , V . a> , r , and r may 
, , rffffcg 

be employed. 

Calculations have been carried out and reported illustrating the application 
of the present CIVM-JET analysis and program for predicting 2-d containment ring 
large-deflection elastic-plastic transient responses to (a) single-fragment impact 
and (b) to impacts by three equal-size fragments. The influence of containment ring 
thickness, axial length, and strain-rate. dependence, as well as friction between the 
fragment and the impacted structure have been explored. 

Similar illustrative calculations have been performed and reported for the -re- 
sponses of (a) ideal hinged-fixed/free and (b) elastic-foundation-supported fragment- 
deflector rings of uniform thickness to impact by a single idealized fragment. With 
respect to the latter more-realistic and yet-idealized model, it was found that 
plausible increases in the values for the stiffnesses of the "elastic foundation" 
was a more effective means for changing the path of the attacking fragment than by 
plausible increases in the thickness of the deflector ring itself. 

Although calculations were of very limited scope, some interesting response 
trends were noted. More extensive calculations in which -more of the problem variable; 
accommodated in the CIVM-JET-4A analysis and program are included and in which each 
of certain quantities are varied over plausible ranges would provide a more illumi- 
nating picture of the roles and effectiveness of these parameters with respect to 
fragment-containment and/or fragment-deflection protection. 

It is believed that the present analysis method and program (CIVM-JET— 4A) pro- 
vides a convenient, versatile, and efficient means for estimating the effects of 
numerous problem variables upon the severe nonlinear 2-d responses of variable- 
thickness containment/def lector structures to engine-rotor-fragment impact. Although 
a limited number of comparisons of predictions with appropriate experimental data shov 
encouraging agreement, more extensive comparisons are required to establish a firmer 
assessment and confidence level in the accuracy and the adequacy of the present pre- 
diction method, consistent with its inherent 2-d limitations. 
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SECTION 1 


INTRODUCTION 

1.1 Outline of the Engine Rotor Fragment Problem , 

As pointed out in Refs. 1 through 6, for example, there has been a not- 
insignificant number of failures of rotor blades and/or disks of turbines and 
compressors of aircraft turbojet engines of both commercial and military air- 
craft each year, with essentially no improvement in the past 10 years in the 
number of uncontained failures. The resulting" uncontained fragments, if suffi- 
ciently energetic, might injure personnel occupying the aircraft or might 
cause damage to fuel lines and tanks, control systems, and/or other vital com- 
ponents, with the consequent possibility of a serious crash and loss of life. 

It is necessary, therefore, that feasible means be devised for protecting (a) 
on-board personnel and (b) vital components from such fragments. 

. Two commonly recognized concepts for providing this ■ protection are evi- 
dent. First, the structure surrounding the "failure-prone" rotor region could 
be designed to contain (that is, prevent the escape of) rotor burst fragments 
completely. Second, the structure surrounding this rotor could be designed so 
as to prevent fragment penetration in and to deflect fragments away from cer- 
tain critical regions or directions, but to permit fragment escape readily in 
other "harmless" regions or directions. These two concepts are illustrated 
schematically in Figs. 1 and 2. In certain situations, the first scheme 
(complete containment) may be required, while in other cases either scheme might 
be acceptable. For the latter situation, one seeks the required protection for 
the least weight and/or cost penalty. A definitive comparative weight/cost 
assessment of these two schemes is not available at this time because of (a) 
inadequate knowledge of the f ragment/structure interaction phenomena and (b) 
incomplete analysis/design tools, although much progress has been made in these 
two areas in the past several years; however, this question is explored in a 
limited preliminary fashion in the present report. 

Studies reported in Refs. 1 through 3 of rotor burst incidents in com- 
merical aviation from the Federal Aviation Administration (FAA) , the National 
Transportation Safety Board (NTSB) , and other sources, indicate that uncontained- 
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fragment incidences occur at the rate of about 1 for every 10 6 engine flight 
hours. In 1971, for example, 124 fragment-producing rotor failures were re- 
ported in U.S. commercial aviation (Ref. 2); in 35 of these incidents, uncon- 
tained rotor fragments were reported. The total number of failures and the 
number of uncontained failures are classified as to fragment type in three 
broad categories as follows (Ref. 2) : 



Total No. of 

No . of Uncontained 

ragment Type 

Failures 

Failures 

Disk Segment 

13 

13 

Rim Segment 

6 

4 

Rotor Blades 

105 

18 


The sizes and the kinetic energies of the attacking fragments, however, are 
not reported. 

From a detailed study of NTSB and industrial records, Clarke (Ref. 3) 
was able to find 32 case histories with descriptive and photographic informa- 
tion sufficient to permit a reasonable determination of the type and size of 
the largest fragment and the associated kinetic energy. His assessment is that 
these data are sufficient to define trends for disk bursts. According to 
Clarke, the disk breakup modes for the 11,000 to 19,000-lb thrust range of engines 
studied are classified into four categories: (1) rim segment failures, (2) rim/ 
web failures, (3) hub or sector failures, and (4) shaft-type failures; these and 
other types of engine rotor fragments are illustrated in Fig. 3. Rim failures 
contain only rim sections or serrations. Rim/web failures include rim and web 
sections but do not include hub structure. Hub or sector fragments result when 
the rotor fails from the rim to the hub, thus nullifying the disk hoop strength 
and allowing the disk to separate into several large sections. The shaft-type 
failure mode usually occurs as a result of a bearing failure or a disk unbalance 
that fails the disk shaft or the attaching tie rods; this mode can release more 
than one engine stage from the nacelle. Accordingly, the 32 cases of failure are 
divided into these four categories as follows; with the number of failures and 
percent of total failures shown in parentheses (number/percent) : rim (15/47), 
rim/web (3/9) , sector (10/31) , and shaft (4/13) . Thus the rim and the sector 
failures comprise the lion's share of the failure modes for these 32 cases. 
Although in one case there were 10 major fragments, in about 80 percent of the 
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cases there were 4 or fewer fragments, with an overall mean of 3 major fragments. 

A major fragment is defined as one which contains a section of the rotor disk 
whose largest dimension is greater than 20 per cent of the disk diameter and also 
contains more kinetic energy than a single blade from the same stage. In that 
report, blade failures are not included as major fragments. Failed blades (ex- 
cluding fan blades) tend to be contained in accordance with Federal Aviation Regu- 
lations (FAR) Part 33. In only about 15 to 20 per cent of rotor blade failures 
does casing penetration occur. These "escaped single-blade fragments” possess 
reduced kinetic energy; thus, their potential for further damage is limited. 

In the Ref. 3 study, the size of the largest major rotor fragment as a 
cumulative percentage of the 32 cases analyzed is reported. Also, it is de- 
duced that the largest translational kinetic energy of a major fragment will 
not exceed 40 per cent of the total rotational kinetic energy of the unfailed 
rotor. For a large majority of rotor burst fragments, the kinetic energy 
possessed by each fragment will be substantially less than this 40 per cent 
value. 

The studies of Refs. 1 through 3 and 6 through 11 indicate that for disk 
fractures, a 120° sector is a good candidate as a "maximum-size fragment and 
danger" criterion. If one examines the translational and rotational energy 
content of rotor disk fragments as a function of sector- angle size, it is found 
that a sector of about 120° contains the maximum translational kinetic energy. 
However, in view of the fragment-size and type statistics available, the choice 
of a smaller and less energetic "criterion fragment" for fragment containment/ 
deflector design appears to be much more sensible for obtaining ,a reasonable 
and feasible improvement in the "safety index" of aircraft turbojet engine/ 
airframe installations with respect to rotor-burst damage effects. Also, frag- 
ments of this class apparently occur much more frquently than do those of the 
120-degree sector type. In this vein, Clarke suggests that enhanced safety 
would be achieved by requiring the complete containment of a fragment consisting 
of a rim segment (serration) with 3 blades attached; the authors of the present 
report concur in this judgment. 

Despite intensive conscientious effort through the use of improved 
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materials, design, fabrication, and inspection, the annual number of aircraft 
engine rotor bursts remains at a too-high level — with little or no improve- 
ment in the past decade. With the large increase of wide-body and jumbo jets, 
the potential for a large-life-loss accident from this cause grows monthly. 

In order to assist the FAA (and industry) to achieve improved safety in this 
respect, NASA has been sponsoring a research effort with the following long- 
range objectives: 

(1) to improve the understanding of the phenomena attending 
engine rotor fragment attack upon and the transient struc- 
tural response of engine casing fragment- containment and/or 
fragment-deflection structure via an integrated program of 
appropriate experiments and theoretical analysis, 

(2) to develop and verify theoretical methods for predicting 
the interaction behavior and the transient structural re- 
sponses of containment/deflection structure to engine- 
rotor fragment attack, and 

(3) to develop (a) an engine rotor fragment test capability 
to accommodate reasonably foreseeable needs, (b) experi- 
mental containment/def lection data in limited pertinent 
parametric studies, (c) experimental techniques and high 
quality experimental data for evaluating and guiding the 
development of theoretical-analysis methods, and (d) 

a "proof test" capability for conducting test fragment 
and structure combinations which are too complex to be 
analyzed reliably by available methods. 

Hopefully, useful theoretical analysis tools of limited complexity could be 
devised, verified, demonstrated, and transmitted to both the FAA. and industry 
to assist via parametric design calculations and appropriate experiments the 
development of improved protection without imposing excessive weight penalties. 

Starting about 1964, the Naval Air Propulsion Test Center (NAPTC) under 
NASA sponsorship has constructed and employed a spin-chamber test facility 
wherein rotors of various sizes can be operated at high rpm, failed, and the 
interactions of the resulting fragments with various types of containment and/or 
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deflection structures can be studied with high-speed photography and transient 
strain measurements, in addition to post-mortem studies of the containment/ 
deflection structure and the" fragments . Many such tests involving single frag- 
ments or many complex fragments impinging upon containment structures of vari- 
ous types and materials have been conducted (Refs. 6 through 11) and have sub- 
stantially increased the body of knowledge of the attendant phenomena. Since 
mid-1968 NASA lias sponsored a research effort at the MIT Aeroelastic and Struc- 
tures Research Laboratory (ASRL) to develop methods for predicting theoretically 
the interaction- behavior between fragments and containment-deflection structures, 
as well as the transient deformations and responses of containment/deflection 
structures — the principal objective being to devise reliable prediction/ 
design procedures and containment/def lection techniques; Important cross- 
fertilization has occurred between the NAPTC experimental and the MIT-ASRL 
theoretical studies, with special supportive-diagnostic experiments and de- 
tailed measurements being designed jointly by NASA, NAPTC, and MIT personnel 
and conducted at the NAPTC. Subsequent analysis and theoretical-experimental 
correlation work has been increasing both the understanding of the phenomena 
involved and the ability' to predict these -interaction/structural-response 
phenomena quantitatively. 

1.2 Review of Some Analysis Options 

Because of the multiple complexities involved in the very general case 

wherein the failure of one blade leads to impact against the engine casing, 

rebound, interaction with other blades and subsequent cascading rotor-failures 

and multiple- impact interactions of the various fragments with the casing, and 

/ 

with each other, it is necessary to focus attention initially upon a much 
simpler situation in order to develop an adequate understanding of these col- 
lision-interaction processes. Accordingly, rather than considering the general 
three-dimensional large deformations of actual engine casings under multiple 
rotor-fragment attack (see Fig. 4, for example) , the simpler problem of planar 
structural response of containment structures has been scrutinized. That is, 
the containment structure is regarded simply as a structural ring lying in a 
' plane; the ring may undergo large deformations but these deformations are con- 
fined essentially to that plane. For such a case, numerical finite— difference 
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(Refs. 12 and 13) and finite element (Ref. 14) methods of analysis to predict 
the transient large-deformation, responses of such structures to known impulsive 
and/or transient external loading and/or to a known distribution, magnitude, 
.and time. History^ of velocities imparted to the structure have been developed at 
the MIT-ASRL and have been verified by evaluative comparison with high-quality 
experimental data to provide reliable predictions. 

In the present context, therefore, the crucial information which needs 
to be determined (If the structural response of a containment ring is to be 
predicted reliably) concerns the magnitude, distribution, and time history of 
either the loading or the impact-induced velocities which the ring experiences 
because of fragment impact and interaction with the ring. Two means for sup- 
plying this information have been considered: 

(1) The TEJ concept (Refs. 15 and 16) which utilizes measured 

experimental ring position-time data during the ring-fragment 
interaction process .in order to deduce the external forces 
experienced by the ring. This concept has been pursued. An 
important merit of this approach is that it can be applied 
with equal facility to ring problems involving simple single 
fragments such as one blade, or to cases involving a complex 
multi-bladed-disk fragment. The central idea here is that if 
the TEJ-type analysis were applied to typical cases of, for 
example, (a) single-blade impact, (b) disk-segment impact, 
and/or (c) multi -bladed disk fragment impact, one could de- 
termine the distribution and time 'history of the forces 
applied to the containment ring for each case. Such forces 
could then be applied tentatively in computer code response- 
prediction-and-screening studies for similar types of ring- 
fragment interaction problems involving various other ma- 
terials, where guidance in the proper application of these 
forces or their modification could be furnished by dimen- 
sional-analysis considerations and selected spot-check 
experiments. It remains, however, to be demonstrated 
whether adequate rules can be devised to "extrapolate" this 
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forcing function information to represent similar types 
of fragment attack (with perhaps different fragment ma- 
terial properties) against containment vessels composed 
of material different from that used in the afore- 
mentioned experiments.* 

On the other hand, this approach suffers from the fact 
that experimental transient structural response data of 
high quality must be available; the forcing function is 
not determined from basic material property, geometry, 
and initial impact information. 

(2) The second approach, however, utilizes basic material 

property, geometry, and initial impact information in an 
approximate analysis. If the problem involves only a 
single fragment, this method can be carried out and imple- 
mented without undue difficulty, but can become compli- 
cated if complex fragments and/or multiple fragments must 
be taken into account. However, measured transient struc- 
tural response data are not required in order to employ 
this method successfully. 

Approach 1 is explained in detail in Refs. 14 and 15. The present report 
deals with one version of approach 2; other versions of approach 2 (denoted 
by CIVM and/or CFM) are discussed in Refs. 14 and 17. 

Various levels of sophistication may be employed in approach 2. One 
could, for example, utilize a finite-difference shell- structure analysis such 
as PETROS 3 (Ref. 18) or REPSIL (Refs. 19 and 20), or similar finite- element 
codes, to predict the large general transient- deformations of . engine casing 
containment/deflection structure to engine rotor fragment impact. For even 
more general behavior, one could employ 3-d solid-continuum finite-difference 


*It is to circumvent this tenuous extrapolation problem and to eliminate the 
necessity for making detailed transient response measurements now required 
in the TEJ concept that effort has been devoted to developing alternate methods 
of analysis (see the next approach in item 2) . 
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codes such as HEMP (Ref. 21), STRIDE (Ref. 22), or HELP (Ref. 23) wherein both 
the containment ring and fragment may be represented by a suitably fine three- 
dimensional mesh, and the conservation equations can be solved in time in small 
time increments; these latter codes can handle only a limited number of simple 
configurations. Both the 3-d shell codes and the 3-d solid codes take into 
account elastic, plastic, strain hardening ,' and strain-rate behavior of the 
material. Such computations (especially the 3-d solid type) while vital for 
certain types of problems are very lengthy and expensive, and are not well 
suited for the type of engineering analysis/design purposes needed in the 
present problem; for complicated or multiple fragments, such calculations would be 
prohibitively complicated, lengthy, and expensive. A simpler, less complicated, 
engineering-analysis attack with this general framework is needed; namely, the 2-d 
structural response analysis method (see Fig. 5). 

Two categories of such an engineering analysis in the approach 2 clas- 
sification may be identified and are termed: (a) the collision- imparted ve- 
locity method (CIVM) and (b) the collision-force method (CFM) . The essence 
of each method follows: 

( a) Collision- Imparted Velocity Method (CIVM) 

In this approach (Ref. 14) , the local deformations of the fragment 
or of the ring at the collision interface do not enter explicitly, 
but the containment ring can deform in an elastic-plastic fashion by 
membrane and bending action as a result of having imparted to it a 
collision- induced velocity at the contact region via (a) a perfectly- 
elastic, (b) perfectly- inelastic, or (c) intermediate behavior. 

Since the collision analysis provides only collision-imparted velocity 
information for the ring and the fragment ( not the collision-induced 
interaction forces themselves) , this procedure is called' the collision- 
imparted velocity method. 

(b) Collision-Force Method (CFM) 

in this method (Ref. 17) the motion of the fragment and the motion 
of the containment/deflection ring (2-d idealized structure) is 
predicted and followed in small increments At in time. If fragment/ 
ring collision occurs during such a At increment, a collision-interaction 
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calculation is performed. This calculation provides an estimate 
of the force experienced by the ring at the contact region during 
an appropriate portion of this At time period; an equal and op- 
posite force is experienced by the {rigid or deformable) fragment. 

The calculation advances similarly during the next At increment. 

In practice the TEJ, CIVM, and CFM procedures are employed in intimate conjunc- 
tion with one or more of the 2-d structural response ring codes*:JET 1 (Ref. 15), 
JET 2 (Ref. 16) , or JET 3 (Ref. 24) . These ring codes have various different 
capabilities but each permits one to predict reliably the 2-d, large-deflection, 
elastic-plastic, transient deformations of structural rings for either (1) 
transient external forces of prescribed distribution, magnitude, and time 
history or (2) locally- imparted velocities of prescribed distribution, magni- 
tude, and time history. Accordingly, these respective f ragment/ring response 
analyses are termed TEJ- JET, CIVM-JET, and CFM- JET. These procedures are in- 
dicated in the information flow diagram on page 10. 

Finally, it is useful to note that these three approaches to analyzing 
the transient structural responses of two-dimensional containment/deflection 
structure subjected to engine rotor fragment attack play useful complementary 
roles rather than duplicatory roles. In cryptic self-explanatory form, these 
complementary roles are summarized on page 11. 


A concise summary of the capabilities of the computer codes JET 1, JET 2, 
and JET 3 is given in Appendix B.. 
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effects on containment rings 
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COMPLEMENTARY ROLES OF 
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£ TEJ-JET 

| Applicable to Simple Single as well 
as Complex Multiple Fragments 

H Must have Measured Structural Response Data 

H Predicted Transient Extern ally- Applied Loads 
are Useful for Preliminary Design 

A Use as Unchanged in Screening Calculations 
for Various Containment Vessel Materials 
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Jkt. Conduct Spot Check Tests and TEJ-JET 
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0 CIVM-JET AND/OR CFM-JET 
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U Uses Basic Geometry, Material Property, and Initial 
Condition Data 

■ Readily Applied to Single -Fragments 
H Multiple or Complex Fragments 

More Difficult to Apply 
A Needs Further Development; Complex Logic 
| Complex but has Much Potential for Future 
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1.3 Current Status of the Fragment/Ring Collision-Interaction 
and 'Response Analyses 

Having chosen for engineering convenience and simplicity to restrict 
ini'tiaT -theoretical prediction method developments to two-dimensional* struc- 
tural response behavior of containment and/or deflector structures, the develop- 
ment of the analyses TEJ-JET, CIVM-JET, and CFM-JET have been pursued to the 
extent permitted by the available time and funds. In this context the plan of 
action included the following elements (see Fig. 5): 

1. Use TEJ-JET, CIVM-JET, etc. for- materials screening studies, 
parametric calculations, and thickness estimates for 2-d con- 
tainers and/or deflector structure. 

2. Conduct experiments to determine the structural thickness re- 
quired for fragment containment or fragment deflection, as 
desired: 

(a) conduct such experiments on axially short (2d) contain- 
ment/deflection structure to evaluate and verify the 2-d 
predictions for the required structural thickness h^, and 

(b) conduct such experiments on containment/deflection struc- 
ture of various axial lengths in order to determine the 

smallest wall thickness h ^ required (and the associated 

opt 

shortest axial length) for fragment containment or de- 
flection for realistic three-dimensional deformation be- 
havior. 

3. Next, carry out 2-d calculations and correlations with experi- 
ments in order to seek convenient rules of thumb for relating 

h„, to the desired h 
2d opt 

Therefore, the first task to be carried out was the development of TEJ-JET, 
CIVM-JET, and/or the CFM-JET analyses for idealized 2-d structural models 

* 

While the present (initial) analysis has been restricted to idealized contain- 
ment/deflection structures undergoing two-dimensional behavior for convenience 
and simplicity, more comprehensive structural modeling and analysis could be 
employed later if found to be necessary. 
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for containment and/or deflector structure. Schematics of "actual" and 
idealized 2-d models of, respectively, containment structure and deflector 
structure are shown in Figs. 6 and 7. 

1.3.1 TEJ- JET Status 

References 15 and 16 document the early studies of the TEJ-JET concept 
and its feasibility. The theoretical feasibility of the TEJ-JET concept has 
been verified. This has been carried .out by predicting the large-deflection 
elastic-plastic transient response of an initially-circular, uniform-thickness, 
containment ring subjected to a prescribed circumferential distribution and 
time history of externally-applied forces via the JET 1 computer program; this 
provided position-time data for many mass points (typically 72) around the cir- 
cumference of the ring. In order to simulate the effects of experimental and 
data conversion uncertainties upon this position-time information, these data 
were perturbed by random numbers with a mean of zero but with various plausible 
levels of probable error. The resulting "simulated experimental position-time 
data" were then subjected to TEJ processing in order to "extract" predictions 
of the externally-applied forces which produced these "modified structural 
response data" ; the resulting predicted external forces were in very good agree- 
ment with- the original known prescribed external forces. 

analysis of an early set of high-speed photographic measurements carried 
out by the NAPTC of the transient response of a containment ring subjected to 
impact from a single rotor blade from a T58 turbine rotor revealed certain data 
deficiencies. Subsequently, the effects upon the TEJ-JET prediction process 
of various uncertainty factors have been studied, and means for reducing the 
prediction uncertainty, including both analysis improvements and improvements 
in measurement precision and accuracy, are in progress. Improved NAPTC experi- 
mental data are expected to be received shortly for use in a more definitive 
evaluation of the TEJ-JET analysis method. 

It should be noted that the success of this method depends crucially 
upon the availability of very high quality experimental data to define the time 
history of the motion of the containment/deflection structure and of the frag- 
ments and/or other moving structure which strikes the containment-deflection 
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structure. The feasibility and accuracy of the TEJ-JET method for estimating 
the impact forces applied to the containment ring in an actual experimental 
situation have been verified only in part and then only for the simplest case: 
a single blade impacting a free circular containment ring. These forces have 
been deduced (it is believed successfully) from the analysis of the CG motion 
of thS*-r±ng, but another independent estimate involved in the TEJ-JET scheme 
is obtained from analyzing the motion of individual mass points of the ring. 

The latter estimate has not yet been carried out successfully — this work 
utilizing recent experimental data of improved quality is still in progress. 

If this TEJ-JET method (especially the second scheme) turns out to be 
successful for this simplest of all cases, serious consideration could then be 
given to the further development of this method in order to predict the fragment/ 
ring collision forces for more complex problems such as (a) an n-fragment 
burst of a rotor, (b) a single blade failure from a fully-bladed rotor, (c) a 
rim chunk with a few blades attached, etc. If successful for these cases of 
more practical interest (such as case (c) , for example) , the attendant predicted 
external forces could then be employed as first-approximation forcing function 
information in 2-d JET codes to predict the transient structural responses of 
various candidate containment/deflection rings and materials. For a given type 
of fragment attack for which one presumes the availability of the above-noted 
forcing-function information, one will need to develop some means of estimating 
how these forces would be altered if radically different containment/def lection 
structural materials, thicknesses, etc. from those used in the "source experiment 
are used in parametric/design studies. 

1.3.2 CFM-JET Status 

A study of the collision force method (CFM) is reported in Ref. 17. This 
method was applied successfully to predict the transient structural response of a 
simply- supported steel beam subject to impact by a steel ball? comparisons of 
CFM-JET predictions for this case were in good agreement with independent pre- 
dictions. 

The CFM-JET method was also applied to analyze the impact interaction 
and transient response of an aluminum containment ring to impact from a single 
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blade from a T58 engine turbine rotor; experimental transient response photo- 
graphic data were available from NAPTC experiments for comparison. In these 
CFM-JET studies, the rotor blade was modeled in three different ways: (1) the 
blade was prescribed to remain straight and to experience purely-elastic be- 
havior, (2) the blade was permitted to shorten and to experience elastic-plastic 
behavior but to remain straight, and (3) the blade was permitted to undergo a 
plausible curling deformation behavior over a region near the impacted end and 
to behave in an elastic-plastic fashion. In all cases, the free initially- 
circular aluminum containment ring was permitted to experience large-deflection, 
elastic-plastic bending and stretching behavior. For all three blade-behavior 
cases, the predicted containment ring transient responses were very similar, 
with type (3) providing the best theoretical-experiment agreement. Also, the 
type (3) prediction demonstrated the best agreement between the predicted and 
the observed fragment motion. For the type (3) model, impact between the blade 
and the ring was treated as either frictionless or as involving various fixed 
values of the friction coefficient y. 

For plausible combinations of the curling-blade-model parameters and 
the frictional coefficient, the CFM-JET predictions for both the transient 
response of the ring, and the motion and the final deformed configuration of 
the blade were in very good agreement with experimental observations. 

As is made clear in Refs. 14 and 17, the CIVM-JET method is more readily 
extendable than is the CFM-JET method to more complex types of fragments and 
fragment- attack situations. Hence, future development effort has favored the 
CIVM-JET method. 

1.3.3 CIVM-JET .Status 

Initial studies of the CIVM-JET method of analysis are reported in 
Ref. 14. In analyzing containment and deflection ring responses to impact 
from a single blade, the blade is modeled in the analysis as being nonde- 
formable (remains straight rather than deforming as observed experimentally) . 
However, the effect of neglecting this type of blade deformation, and its 
attendant changing moment of inertia, has a very minor influence on the transi- 
ent response of the containment/deflection structure. Another simplification 
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used in that initial CIVM-JET study was to ignore the effects of friction be- 
tween the ring and the impacting blade. As a result of these two simplifica- 
tions, one finds a fair discrepancy between predictions and observations of 
the motion of the blade after initial impact with the ring. However, one ob- 
serves very good agreement between predictions and measurements of the transi- 
ent large deformations of the containment ring. 

Also reported in Ref. 14 are some illustrative CIVM-JET calculations to 
predict the responses of 90-degree sector partial rings (fragment deflectors) 
to impact by a single blade. One end of the partial ring was either ideally 
clamped or pinned-fixed while the other end was free. Frictionless impact 
and a non- deformable blade were assumed also in these cases. There were, 
however, no appropriate experimental data available for comparison. 

1.4 Purposes and Scope of the Present Study 

Experience gained in these initial CIVM-JET studies and in the subse- 
quent CFM-JET investigations suggested that the former approach would be more 
readily extendable than the latter to analyze containment/deflection structural 
responses to impact from more complex types of fragments. Accordingly, it was 
decided to extend the CIVM-JET analysis and to carry out some illustrative cal- 
culations . 

Specifically, the tasks undertaken and discussed in this report follow: 

1. To include the effects of friction between the fragment and 
the impacted structure. 

2. To combine the resulting CIVM collision-interaction analysis 
with the JET 3 structural response computer program in order 
to make available a convenient CIVM-JET computer code for 
interested users, together with a user's manual and example 
problems. 

3. To include an approximate means of accounting for the 
"restraint effects" of adjacent structure upon the re- 
sponses of fragment-impacted 2-d containment and/or de- 
flector structures. 

4. To illustrate the utilization of this updated CIVM-JET 
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analysis and program for predicting 

(a) containment ring responses to single-fragment 
and multiple-fragment attack and 

(b) deflector ring responses to single- fragment 
attack . 

Section 2 is devoted to describing the CIVM-JET method including the 
updating features cited in tasks 1 through 3. Illustrative containment ring 
response studies are discussed in Section 3, while illustrative fragment de- 
flector response calculations are described in Section 4. A summary of the 
present studies, pertinent conclusions, and suggestions for further research 
are presented in Section 5. 

Appendix A contains a description and a listing of the resulting 
CIVM-JET-4A computer program together with input and output instructions. 
Included are example problems, the associated proper input, and solution 
data which may aid the user in adapting this program to his computer facility. 

Appendix B contains a concise summary of the capabilities of the two- 
dimensional, elastic-plastic, large-deflection, transient structural response 
computer codes JET 1, JET 2, and JET 3. 
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SECTION 2 


COLLISION-IMPARTED VELOCITY METHOD 


2.1 Outline of the Method 

For present purposes, attention is restricted to analyzing the transient 
responses of two-dimensional containment and/or deflector rings which are sub- 
jected to fragment impact; examples of these types of structural models are in- 
dicated schematically in Figs. 6 and 7. Accordingly, these structures may under- 
go large elastic-plastic bending and stretching deformations but those deforma- 
tions as well as the fragment motions are assumed to lie in one plane; namely, 
the Y,Z plane as shown in Fig.' 8. 

Using this ring-fragment problem as an illustrative example, this section 
is devoted to a description of the general procedure used to calculate the tran- 
sient motions of the ring and the fragment in accordance with the process called 
the collision- imparted velocity method (CIVM) . An information flow schematic 
of this procedure is shown in Fig. 9. Briefly, the analysis procedure indicated 
in Fig. 9 consists of the following principal steps: 

1. Motions and Positions of Bodies 

The motions of the fragment and of the containment ring are predicted 
and the (tentative) region of space occupied by each body at a given 
instant in time is determined. 

2. Collision Inspection 

Next, an inspection is performed to determine whether a collision has 
occurred during the small increment (At) in time from the last instant 
at which the body locations were known to the present instant in time 
at which body-location data are sought. If a collision has not occurred 
during this At, one follows the motion of each body for another At, etc. 
However, if a collision has occurred, one proceeds to carry out a 
collision-interaction calculation. 

3. Collision-Interaction Calculation 

In this calculation energy and momentum conservation relations are 
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employed in an approximate analysis to compute the collision- 

induced changes (a) in the velocities V_ (translation) and 

f 

(rotational) of the fragment and (b) nodal velocities of 
the ring segment which has been struck by the fragment. The 
coordinates which locate the positions of the fragment and 
of this particular ring segment are thereby corrected from 
their tentative uncorrected-f or-impact locations . 

One then returns to step 1, and the process is repeated for as many time incre- 
ments as desired. 

The details of this analysis procedure as well as various considerations 
and simplifying assumptions employed hre discussed m the remainder of this 
section. 

2.2 Fragment-Idealization Considerations 

Consistent with the decision to idealize containment and deflector struc- 
ture as behaving in a two-dimensional fashion, a similar decision has been 
reached to idealize the various types of rotor-burst fragments in a' way which 
is both versatile and convenient for analysis. Further, it was desired to 
include from 1 to n fragments, where these fragments may have either identical 
or different masses, velocities, kinetic energies, etc. Some of the considera- 
tions which led to the selected fragment idealization are discussed in the 
following. 

In the initial theoretical studies reported in Refs. 14 and 17, only a 
single rotor blade fragment was utilized. Various types of blade fragment be- 
havior were assumed and the consequences investigated. The assumed types of 
behavior included: 

(a) straight non-deforming blade 

(b) elastically-deforming straight blade 

(c) elastic-plastic straight blade 

(d) elastic-plastic curling blade 

In all cases before initial impact, these blades had identical masses, mass 
moment of inertia about the CG, translation velocities, and rotational 
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velocities. Although the motion of the blade fragment after initial impact 
differed from model to model, the large-deflection elastic-plastic 
transient responses of the fragment- impacted containment rings exhibited 
only small differences for the various blade-fragment models. Thus, the 
effect of the changing geometry of the deforming blade fragment during impact- 
interaction with the ring is of distinctly secondary importance with respect 
to containment ring response. Accordingly, the most important fragment quanti- 
ties requiring duplication in the idealized fragment model are its mass and 
translational kinetic energy; of lesser importance are it's rotational kinetic 
energy, mass moment of inertia, and "geometric size". 

Therefore, one may idealize the fragment geometry in order to reduce the 
complexity of determining at successive instants of time during predictions 
whether or not the fragment has collided with the ring. However, it is possible 
to analyze and follow in detail the deforming configuration of a rotor-blade fra 
ment (or even of a bladed disk fragment) during impact-interaction with a con- 
tainment ring if one is willing to pay the price in complexity and in compu- 
tational expense. At the present stage of study, this degree of complexity 
is considered to be unjustified . Hence, the "severe" but convenient and rea- 
sonable idealization that a single rotor blade, a bladed-rim segment, or bladed 
rim-web segments, for example, may be represented as a non-deformable circular 
configuration of appropriate diameter, mass, and mass moment of inertia has 
been adopted. This decision also greatly simplifies the matter of determining 
at a given instant in time whether or not a given fragment has collided with 
the ring because the space occupied by the fragment is readily defined by the 
Y,Z coordinates of its center, and its radius. The space occupied is compared 
with the space instantaneously occupied by the ring in order to determine 
whether or not a fragment/ring collision has occurred. 

Shown schematically in Fig. 10 are pre- impact and final-deformed con- 
figurations of a single rotor blade, a one-sixth bladed disk segment, and a 
one-third bladed disk segment from a T58 - turbine rotor. These fragments were 
employed in containment ring experiments conducted at the NAPTC; information 
on intermediate states of typical fragment deformation are also available 
(Refs. 10 and 25) . Also depicted in Fig. 10 are certain fragment idealizations. 
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including the currently adopted non-deformable circular configuration used m 
the present 2-d analysis. It is seen that a circle of appropriate diameter 
may be chosen to circumscribe each type of undeformed and deformed fragment. 
Since for a given type of fragment these diameters do not vary greatly (up to 
about 30 per cent or less typically) , one may choose the diameter of the 
idealized non-deformable fragment to be either "extreme" or some intermediate 
value because these fragment-size extremes produce very little effect upon the 
predicted transient deformation of the ring and the maximum circumferential 
strains experienced by an impacted containment ring. 

2.3 Collision-Interaction Analysis, Including Friction 

The collision- interaction analysis employed is described in the follow- 
ing in the context of two-dimensional behavior -of both the containment/deflec- 
tion structure* and the fragment. Further, the analysis will be described' for 
a case in which only a single idealized fragment is present; similar relations 
are employed for the individual impacts of each of n fragments when n fragments 
are present. 

For the CIVM approach, the following simplifying assumptions are 
invoked: 

1. Only the fragment and the ring segment or element struck by 
that fragment are affected by the "instantaneous collision" 

(see Fig. 8) . 

2. In an overall sense, the fragment is treated as being rigid 
but at the "immediate contact region" between the fragment 
and the struck object (termed "target" for convenience) , 
the collision process is regarded as acting in a perfectly 
elastic (e •= 1) , perfectly inelastic (e = 0) , or an inter- 
mediate fashion (0<e<l) , .where e represents the coefficient 
of restitution. 


* { 

A similar procedure could be employed if one were to model the containment/ 
deflection structure in a more comprehensive and realistic way by using shell 
finite elements or the spatial finite difference method. 
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( 3 ) 


The colliding surfaces of both the fragment and the target 
may be either perfectly smooth (y=0) or may be "rough" 

(y/0) , where y denotes the coefficient of sliding friction. 

Hence, respectively, force and/or momentum (or velocities) 
are transmitted only in the normal- to- surface direction or 
in both the normal and the tangential direction. 

(4) During the collision, the contact forces are the only ones 
considered to act on the impacted ring segment and in an anti- 
parallel fashion on the fragment. Any forces which the 

ring segment on either side of the impacted ring segment 
may exert* on that segment as a result of this instantane- 
ous collision are considered to be negligible because this 
impact duration is so short as to preclude their "effective 
development" . 

(5) To avoid unduly complicating the analysis and because of 
the smallness of the arc length of the ring element being 
impacted, the ring element is treated as a straight beam 
(see Fig. 11) in the derivation of the impact inspections 
and equations. However, for modeling of the ring itself 
for transient response predictions, the ring is treated 
as being arbitrarily curved and of variable thickness. 

As indicated in Fig. 11a the curved variable- thickness (or uniform 
thickness) containment/deflector ring is represented by straight-line segments 

(1) to identify in a simple and approximate way the space 
occupancy of the beam segment under imminent impact attack and 

(2) to derive the impact equations. 

The ends of ring segment or element i are bounded by nodal stations i and i tl 
at which the ring thickness is hr and h.^ , respectively; these nodes are 
located in Y,Z inertial space by Y\, Z^, and Z i+\' res P ect; *- ve ly - 


Such forces are termed "internal forces" as distinguished from the "external 
impact-point forces" . 
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In the CIVM-JET studies reported in Ref. 14, the inertial effects of 
the impacted segment were taken into account by means of two different models: 
a consistent-mass model and a lumped-mass model. It was found that the lumped 
mass collision model provides more convenient and reliable collision-interaction 
predictions. Accordingly, only the lumped-mass collision model is employed in 
the present studies. With respect to the inertia forces of the structural 
ring itself, the studies of Ref. 14 have shown that lumped-mass modeling is 
somewhat more efficient than consistent-mass modeling of the ring insofar as 
transient response prediction accuracy is concerned. Hence, lumped mass model- 
ing of the ring is employed in the present work. 

For the lumped-mass collision model, the impacted beam segment is repre- 
sented, as depicted in the exploded line schematic of Fig. 12, by concentrated 
masses m^ and at nodes 1 (or i) and 2 (or i+1) , respectively. Also, for the 
impacted segment indicated in Fig. lib, it is assumed that the two surfaces of 
this variable-thickness element are close enough to being parallel that the 
cosine of one half of the angle between them is essentially unity. Accordingly, 
it is assumed that the direction normal to the impacted surface is the same as 
the perpendicular to a straight line joining nodes 1 and 2. For the collision 
analysis, it is convenient to resolve and discuss velocities, impulses, etc., 
in directions normal (N) and tangential (T) to the straight line joining nodes 1 
and 2 ; the positive normal direction is always taken from the inside toward the 
outside of the ring, while the positive-tangential direction is along the 
straight line from node 1 toward node 2 (see Figs. 11b and 11c) — a clockwise 
numbering sequence is used (for all impacted ring segments) . Hence, the im- 
pacted ring segment lumped-mass velocities and the idealized-fragment veloci- 
ties are expressed with respect to this local, N,T inertial coordinate system 

as V , V , V , Vi , V_ , and V, in the exploded schematic shown in Fig. 12. 

IN IT 2N 2T fN fT 

As shown in Fig. 12, the center of gravity of the idealized impacted 

beam (ring) segment is located at a distance y s from mass m ,and a distance 

L 1 

S s from mass m , where s is the distance from m to m . The "point of frag- 
L 2 12 

ment impact" between masses and m^ is given by the distances as and $s, 
respectively; at this location, it is assumed that the fragment applies a 
normally-directed impulse and a tangentially directed impulse p to the 
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impacted idealized ring segment. Denoting by primes the "after-impact" trans- 
lational and/or rotational velocities, the impulse-momentum law may be written 
to characterize the "instantaneous impact behavior" of this system, as follows 

Normal-Direction Translation -Impulse-Momentum Law 


[ V .« -Xn] 


= Pm 

(ring segment) 

(2.1) 

|y ( ' N ~x»] 

= -fu 


(fragment) 

(2.2) 

Tangential-Direction 

Translational Impulse-Momentum 

Law 


-Xt _ 

Z 

= *P T 


(ring segment) 

(2.3) 

(2.4) 

TOf [Vf T-V(T_ 

: - !Pt 


(fragment) 

(2.5) 

Rotational Impulse-Momentum Law 




= - P N (X-ods +p T ( 
Ip [">/- “(] = h- r f 

S L s 

2 

(ring segment) 
(fragment) 

(2.6) 

(2.7) 


where 


p^ = normal-direction impulse 
P T = tangential-direction impulse 

Y L = V (m i + m 2 ) 

s L = m 1 / ( m 1 + » 2 ) 

= ring thickness at the immediate "impact point" 
m f = mass of the fragment 

I = mass moment of inertia of the fragment about its CG 

The relative velocity of sliding S' and the relative velocity of approach A' 
at the immediate "contact points" between the fragment (at A) and the ring 
segment (at C) are defined by 


24 



( 2 . 8 ) 


s'-- |_v f ; - < i>] - [c^v.t * * v; T ) Cvp^ -v,mY 

A'= X N ■ + *-' v 4 n ') 

Substituting Eqs. 2.1 through 2.7 into Eqs. 2.8 and 2.9, one obtains 

S' ■ S. - B 3 p„ - B, p T 
A ‘ - A « ' B z R, ' B 3 Fv 


where the initial , (pre- impact) relative velocity of sliding S q , the' initial 

relative velocity of approach A , and the geometrical constants B. , B , and 

o 12 

are given by 



A„* Vf N -(^y N t otv4^ 

B = J_ + ( J — + JL. N \ 

-m 4 Tin, TD* v2. s / V 7T1 , 7 Ti z J 



J_ 

tti jf + in, + TTn z 



(2.13) 

(2.14) 

(2.15) 

(2.16) 


where in Eqs. 2.12 and 2.13, by definition A > 0; otherwise, the two bodies 

o — 

will not collide with each other. Also, if S >0, the fragment slides initi- 

o — 

ally along the ring segment. It perhaps should be noted that sliding of the 
bodies on each other is assumed to occur at the value of "limiting friction" 
which requires that p^ = jyp^], and when p^<|yp | , only rolling (i.e.,-no 
sliding) exists. For a given value of e and a given value of y which. 
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respectively, describes the degree of "plasticity" of the collision process, 
and accounts for the frictional properties (roughness) of the contact sur- 
faces/ nine equations (Eqs. 2.1 - 2.7 and Eqs. 2.10 - 2.11) can be solved to 
obtain the post-impact quantities V' , V', V* , V* , V* , V’ , and to’ , as 

■f ** -L 1 c 1. 1 1 — ■ 

well as p^ and p^; these are nine "unknowns" . 

The graphic technique which provides a convenient way to obtain the 

values of p and p at the instant of the termination of impact as described 
N T 

in Ref. 26 is employed in the present collision-interaction analysis. In this 
technique, the trajectory of an "image" point P in the plane formed by the im- 
pulse coordinates p^ and p^ (Fig. 13) represents the state of the colliding 
bodies at each instant of the contact interval. The image print P which is 

initially located at the origin and is denoted by P (p - 0, p =0) will 

on T 

always proceed in the upper half-plane with increasing p . The locations of 
the line of no sliding S' = 0 and the line of maximum approach A' = 0 are 
determined by the system constants B^, B^, and B^. From Eqs. 2.10 through 
2.16, it is noted that and are positive; also since B^B 2 > B^, the 
acute angle between the p^ axis and the line A* = 0 is greater than the cor- 
responding acute angle formed by the line S' = 0 with the p axis; hence, 

N 

the line A' = 0 and the line S' = 0 cannot intersect with each other in the 

third quadrant of the P N ,P T plane. Depending on the values of the coefficient 

. of sliding friction p, the coefficient of restitution e, the system constants 

B., » B , and B_, and the initial conditions S , and A , several variations of 
12 3 o o 

the impact process may occur and will be discussed in the following. 

First, the cases m which the coefficient of sliding friction p range 
from 0<p<“ will be considered; the two special cases with p = 0 (perfectly- 
smooth contact surfaces) and p = <» (completely rough surfaces) will be dis- 
cussed shortly thereafter. 

Case I : If 0 < p < 00 and <_ 0, both the slope of line S' = 0 and the 

slope of line A' = 0 are non-negative (when B^ = 0, lines S' = 0 and A' = 0 
are parallel to the p^ axis and the p^ axis, respectively). The two lines 
S' =0 and A' = 0 intersect with each other at point as shown in Figs. 13a 
and 13b, where the friction angle V and the angle A formed with the p^ axis 
by the line connecting points and and are defined by 
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'i) = TAKl'U 


and 


-A-=taM' 


Bo 5 C 


B 3 A, 


Bi A 0 - S< 


(2.17) 


(2.18) 


Initially, the image point P travels from point P along the path P L which 

o o 

subtends an angle v with the P axis because the limiting friction impulse 


= /* P N 


is developed during the initial stage of impact. Subsequently: 

(a) if y = tan v < tan A (Fig. 13a) , line p L will intersect 

o 

the line of maximum approach A 1 = 0 at point P , before 
reaching the line of no sliding S’ =0. The intersection 


point P^ represents the state at the instant of the termina- 
tion of the approach period. This is followed by the resti- 
tution period; the impact process ceases at point P' (path 


P L - P’) - 


The coordinates of P' are 


P N = (l + e )P N , 

P T * A + 


(2.19) 


( 2 . 20 ) 


where p , the ordinate of point P is determined from 
the simultaneous solution of equations p t = and 


= 0, and is given by 

„ A. 

Pm = 




A B, 


(b) However, if )i = tan v > tan A (Fig. 13b) , line P^L will 
intersect the line of no sliding S ’ = 0 first at the 
intersection point P^ which marks the end of the initial 
sliding phase. The image point P then will continue to 
proceed along the line of no sliding S’ = 0 through the 
intersection point P^ with line A' = 0 to the end of 


impact at point P* (path P - P_ - P. - P') . 

o 2 3 

values of p and p are: 

N T 


The final 


( 2 . 21 ) 
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n,-- (ue>„. 


(2.22) 


Pt- 


So* B 3 Pm = So - B s Cl + e)p 


*3 


(2.23) 


B, 


B, 


where p the ordinate of point P which represents the 
N3 3 

end of the approach period, is given by 

B, A 0 - B 0 


Ptf- 


(2.24) 


B,B 2 - e 3 * 


Case II: If 0 < y < “ and > 0, both the lines S' = 0 and A* = 0 have 
negative slopes as shown in Figs. 13c, 13d, and 13e. By following the same 
argument as in Case I, one has: 

(a) If p = tan v < tan A (Fig. 13c ) , line P q L will intersect 
the line A' = 0 first, before reaching the line S' = 0, 


and the impact process ends at point P 1 (path P^ 
whose coordinates are 


P’) , 


P„ - <P+e) |p N1 
P T = /i Cue.) p, u 


where 


(2.25) 

(2.26) 




CB* 


(2.27) 


(b) If p = tan V > tan A (Figs. 13d and 13e) , the image point 

P moves first along line P L to the intersection with line 

o 

S' = 0 at point P^; up to that point, the two bodies will 

slide along each other. However, beyond point P^, only as 

much friction will act as is necessary to prevent sliding, 

provided that this is less than the value of the limiting 

friction (Ref. 26) . Let the angle formed by the line 

S' = 0 with the p axis be defined as 
N 
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£2 = TAN 


(2.28) 



(bi) If ft < V (Fig. 13d) , the maximum friction is 
not required to prevent sliding; hence, P 
will continue to move along line S' = 0, 
through the end of approach period at point 
P , which is the intersection point with 
line A' =0, to the termination of impact at 
point P' (path P q - P^ - P^ - p ' ) whose 
coordinates are 


& - 0 P u: 


(2.29) 


Pt = 

where 


S 0 - B 3 0 -^e) p K; 

Bi 




N3 


- - 6 3 S c 

8, B, - 83" 


(2.30) 


(2.31) 


'I '-' 2 . 

(bii) On the other hand, if ft > \)(Fig. 13e) , more 
friction than available is required to pre- 
vent sliding. Thus, the friction impulse will 
change its direction beyond P^, and maintain 
its limiting value; the point P moves along line 
P^M which is the line of reversed limiting fric- 
tion and is defined as 


£, = /«• P.T) <2 - 32) 

where 

P --- £2 

B + 8, (2.33) 

x 1 3. 

Through the intersection with line A’ = 0 at 
point P^ to its final state P’ at the end of 
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impact (path P - P„ - P, - P 1 ) . The coordinates 
o 2 4 

of P ’ are 


Ph -- Pn* 

Pt-s* [ e P Ni - ^ l+e ')P N J 

where is defined in Eq. 2.33 and 

N2 

b - A Q - 2^ B 3 
N *~ B B s 

The above solution process can be specialized 
to represent the cases with y = 0 and y = “. 


(2.34) 

(2.35) 


(2.36) 


Case III : If y = 0 (perfectly smooth contact surfaces) , line P q L coalesces 
with the p N axis. The image point P will move along the p fj axis to the end 
of impact. Thus 


p^.o 



(2.37) 

(2.38) 


Case IV : If y = ® 

along the p axis. 

T S 

(a) If^< 


(completely rough contact surface) , point P moves initially 
A A _ 

~ or if — < 0, point P will move along the 
B B 


P axis to the intersection with S‘ =0, then will follow 
T 

the line S' = 0 to the end of impact. The post- impact 

value of p and p are 
N T 


R, 

Pt 


<h +e ^ P N3 

S„ - B. 0 * e) Pm: 


B. 


(2.39) 


(2.40) 
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where 



S' a 

(b) “However, if — > — > 0, point P moves along the p^ axis 

and ceases at^the intersection with line S' = 0- Thus 

the final value of p and p are 
N T 





(2.41) 

(2.42) 

(2.43) 


Knowing the values of p^. and at the end of impact for the above 
discussed various impact processes , the corresponding post- impact velocities 
then can be determined from Egs . 2.1 through 2.7 as follows: 




(2.44) 


(2.45) 


v 2 ; = 





S 

v 2 ; - 


C< P-v 




- 

- 




v,; = 


p-r 




«V = 

-v 

P-r'fV 


(2.46) 

(2.47) 

(2.48) 

(2.49) 

(2.50) 
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Thus, this approximate analysis provides the post- impact velocity information 
for the impacted ring segment and for the fragment so that the timewise step- 
by-step solution of this ring/fragment response problem may proceed. Note that 
these post-impact velocity components are given in directions N and T at each - 
end of the idealized impacted ring segment; as explained later, these velocity 
components are then transformed to (different) directions appropriate for 
the curved-ring dynamic response analysis. 

2.4 Prediction of Containment/Deflector Ring-Motion 
and Position 

The motion of a complete containment ring or of a partial-ring frag- 
ment deflector may be predicted conveniently by means of the finite-element 
method of analysis described in Ref. 14 and embedded in the JET 3 series of 
computer programs described in Ref. 24. These structures may be of either 
uniform or of variable thickness, with various types of support conditions. 
Large deflection transient Kirchhoff-type* responses including elastic, 
plastic, strain hardening, and strain-rate sensitive material behavior may be 
accommodated . 

In this method, the ring is represented .by an assemblage of discrete 
(or finite) elements joined compatibly at the nodal stations (see Fig. 8) . 

The behavior of each finite element is characterized by a knowledge of the 
four generalized displacements q at each of its nodal stations, referred to 
the ri,£ local coordinates (see Fig. 14). The displacement behavior within 
each finite element is represented by a cubic polynomial for the normal 
displacement w and a cubic polynomial for the circumferential displacement v, 
anchored to the four generalized displacements q^, q 2 , , and q^ or v, w, 

ifj, and x at each node of the element (see Refs. 14 and 24 for further de- 
tails) . 

For present purposes, it suffices to note that the resulting equations 
of motion for the "complete assembled discretized structure (CADS) " , - for which 
the independent generalized nodal displacements are denoted by q* , are (Ref. 14) 


Transverse shear deformation is excluded. 
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where 

{q*}, {q*} represent the generalized displacements and 
generalized accelerations, respectively 
[M] is the mass matrix for the CADS 
{p} is an "internal force matrix" which replaces 

the "conventional stiffness terms" [K]{q*} for 
small displacements but now also includes 
some plastic behavior contributions 
[H] represents a "new" stiffness matrix which 
arises because of large deflections and 
also plastic behavior 

[K ] represents the global effective stiffness 
s 

supplied by an elastic foundation and/or 
other "restraining springs" 

{f*} denotes the externally- applied generalized 
forces acting on the CADS . - 


Further, it is assumed that all appropriate boundary conditions have already 
been taken into account in Eg. 2.51. 


The timewise solution of Eq. 2.51 may be accomplished by employing an 
appropriate timewise finite-difference scheme such as the central difference 
method. Accordingly, for the cases of CIVM fragment impact or of prescribed 
externally- applied forces, Eq. 2.51 at time instant j may be written in the 


following form: 


W{%*]-{p]-[h]{^V 2 - 521 

Let it be assumed that all quantities are known at any given time instant t - 

Then one may determine the generalized displacement solution at time t_. 

{i.e., {q*}. ,) by the following procedure. First, one employs the timewise 
3+1 

central-diff erence expression for the acceleration {q* } ^ : 
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{%*} 

It follows that one can solve for -[< 3 ;*} j+1 s ^ nce is already known from 

Eq. 2.52 and all other quantities in Eq. 2.53 are known. However, a fragment- 
ring collision may occur between time instants t_. and t_. +1 ; this would re- 
quire a "correction" to the {q*} found from Eq. 2.53. Thus, one uses and 
.rewrites Eq. 2.53 to form a trial value (overscript T) : 


where 


= h% - {f%, 

( A \%r {%*V, - 

ft*};, = {‘f] o '' {^ r fr } 


(2.54) 


= trial increment 


(2.55) 


fl V = time increment step 

Note that t. = j (At) where j = 0, 1, 2, ... , and {Aq*} = 0. Also, no such 

1 0 
trial value is needed if only prescribed external forces were applied to the 

containment/def lection ring. 

Let it be assumed that one prescribes at t = t =0 (j=0) values for 

o 

the initial velocities {q*} and external forces {f*} , and that the initial 

o o 

stresses and strains are zero. The increment of displacement between time t 
and time t is then given by: 




(2.56) 


where {q*} can be calculated from 
o 

n (ri - 

wherein it is assumed that no ring-fragment collision occurs between t and t 
(accordingly, overscript T is not used on {Aq*}^ in Eq. 2.56). 
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2.5 Prediction of Fragment Motion and Position 


In the present analysis, the fragment is assumed to be undeformable and, 
for analysis convenience to be circular; hence, its equations of motion for 
the case of no externally- applied forces are: 


irifYs. » o 

iTlip T.sp - O 

i* e = o 


^ A "Z- ^ *+• \ " 

( A Q\ ^ , \ = 


(&z 5 ^ ^ 


(2.58) 


(2.59) 


(2.60) 


where (Y f ,Z f ) and Y f ,z f ) denote, respectively, the global coordinates 

and acceleration components of the center of 
gravity of the fragment (see Figs. 8 and 12 ) 
8 represents the angular displacement of the 
fragment in the + direction (Fig. 12) . 

In timewise finite-difference form, Eqs. 2.58 through 2.60 become 


(2.61) 


(2.62) 


(2.63) 


where overscript ’’T" signifies a trial value which requires modification, as 
explained later, if ring-fragment collision .occurs between t_. and t_^ + ^. 

By an inspection procedure to be described shortly, the instant of 
ring-fragment collision is determined, and the resulting collision-induced 
velocities which are imparted to the fragment and to the affected ring seg- 
ment are determined in accordance with the analysis of Subsection 2.3. 
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2.6 Collision Inspection and Solution Procedure 

2.6.1 One-Fragment Attack 

The collision inspection and solution procedure will be described first 
for the case in which only one idealized fragment is present. With minor modi- 
fications this procedure can also be applied for an n-fragment attack as dis- 
cussed in Subsection 2.6.2. 

The following procedure indicated in the flow diagram of Pig. 9 may be 
employed to predict the motions of the ring and the rigid fragment, their pos- 
sible collision, the resulting collision- imparted velocities experienced by 
each, and the subsequent motion of each body: 

Step 1: Let it be assumed at instant t. that the coordinates {q*.}, Y_ , and 

3 3 

, and coordinate increments- {Aq*}., AY^_ , and AZ f are known. One 

3 : 3 3 

can then calculate the strain increments Ae . at all Gauss stations j 

along and through the thickness of the ring (see Ref. 14) . 


Step 2 : Using a suitable constitutive relation for the ring material, the 

stress increments Aa_. at corresponding Gaussian stations within 
each finite element can be determined from the now-known strain in- 
crements As . . Since the U. , are known at time instant t. , , the 
3 3-1 3-1 

stresses at t . are given by O'. = 0 . . + Aa . . This information 

3 33-1 g 

permits determining all quantities on the right-hand side of 
Eq. 2.52, where for the present CIVM problem is regarded as 

being zero. 


Step 3 : 



also, use Eqs . 2.61, 2.62, and 2.63 for the trial fragment dis- 

T T . T 

placement increments (Ay > ,, (Az and (A9) . . . 

f 3+1 f 3+1 j +1 


Step 4 : Since a ring-fragment collision may have occurred between t_. and 

t. , the following sequence of. substeps may be employed to de- 
D * **- 

termine whether or not a collision occurred and, if so, to effect 
a correction of the coordinate increments of the affected ring 
segment and of the fragment. 
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Step 4a : To check the possibility of a collision between the 

fragment .and ring element i (approximated as a 
straight beam) as depicted in Figs. 11, 12, and 14, 

T 

compute the trial projection (p^) of the line from 
ring node i+1 to point A at the center of the fragment, 
upon the straight line connecting ring- nodes l and i+ 1 . 


as follows, at time instant t_. + ^: 

+ - ^- 4 ] * 


COS (oL>_. + i 

sm- av r 


where the Y, Z are inertial Cartesian coordinates. 

T 

Now, examine (p.). , ; three cases are illustrated 

x 3+1 

in Fig. 15a. 

T T 

Step "4b: If (p.) . , < or if (p.) . „ > s. where s. > 0, a 

£ ^1 3+I • 1 3+1 1. 1 

collision between the fragment and ring element- i 
is 'impossible. Proceed to check ring element i+1, 
etc. for the possibility of a collision of the frag- 
ment with other ring elements. 

T 

Step 4c : If 0 < (Pf) 1 _< s^, a collision with ring element 

1 is possible, and further checking is pursued. 

Next, calculate the fictitious "penetration dis- 
■ T 

tance"' (a.,) . , of. the fragment into ring element i 
1 g+l 

at point C by (see Fig. 15b).: 

( ®*V> - [* V * £ ,. 2 ., 

T 

where QH > 


[ l h li 


+ — (h 2 p _ 1 = local semi- thickness of the ring 

- element which is approximated as 
a straight beam in this "collision 
calculation" . 


r f = radius of the fragment 
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a. 


j+1 


- 1 - A 




= fractional distance of s. from node i 
3+1 l 

to where the collision occurs (recall: 

a + 3 = 1, and a. , should not be con- 
3+1 

fused with the angle (ot .).,,) . 

x 3+1 


.1 


_Y a+i -Y*Jsim 


T T 

5u -2 t 


( 2 . 66 ) 


step 4d : 


Step 4e : 


the projection of the line connecting 
node i+1 with the center of the frag- 
ment upon a line perpendicular- to the 
line joining nodes i and i+1. 

T 

Next, examine (a.) . , which is indicated 
r 3+1 

schematically in Fig. 15b and is given 
by Eq. 2.65. 

If (a" ) , < Q, no collision of the fragment 

a- 3+1 

upon element i has occurred during the time 

interval from t. to t. , . Hence, one can 
3 3+1 

proceed to check element i+1, etc. for the 
possibility of a collision of the fragment 
with other ring elements. 

If (Ti) . , >0, a collision has occurred; 

X j-KL 

corrected coordinate increments .(overscipt 
"C") may be determined approximately by 
(see Figs. 14 and 15b)’: 


C *T I — I - 

Cay^. +1 <ay 4 ). + , + v 4 ‘ -v^ sin o-aVi (2.67a) 

~ (y*T -■ Vf Y) cos (o(X\ ^ + 7j 

CosdA (2.67b) 

(&9)- (2.67c) 
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(2. 67d) 


(A Vc\,r( A X '> irl 

T C V,-,- C o S ( -o< 

uz*) [(v,;-v^cos(^-^v, 

- CX-r'X-r - ) SIH (4‘ 

c4^ ^,- (k\., * (a^E V z^' V ^) S W ( A.. ^ ^ 

T + C'X-r'-'XX cos ( x.r * X V ,1 

C&vt-V ^V* ^ E V «' V ^ coS^-ijJ 

_l (2. 


(2.67e) 

l 

(2.67£) 


(2.67g) 


(a-) 


At* = 


j+1 


‘Vj 


where the after- impact (primed) quantities 
be found from Eqs. 2 .44 through 2.50 and 
where time interval from actual 
= impact on ring element i until t. (2.68a) 

J 




(2.68b) 


= preimpact relative velocity of point A 
on the fragment and point C on the ring. 


The terms, in Eqs. 2.67a through 2.67g, which are multiplied 
by (At*) represent corrections to the trial incremental quanti- 
ties for the (At*) time interval.. Also, since At is small, one 

T T 

may use either angle (0t.)_. + ^ or angle (cO ln Eqs. 2.67a 
through 2.67g. 
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Step 5 : Having determined the corrected coordinate increments for the im- 

pacted ring element, this time cycle of calculation is now complete. 
One then proceeds to calculate the ring nodal coordinate increments 
and the fragment coordinates for the time step from t^ + ^ to t^ + ^/ 
starting with Step 1. The process proceeds cyclically thereafter 
for as many time increments as desired. 

This solution procedure may be carried out for as many time steps as 
desired or may be terminated by invoking the use of a termination criterion 
such as, for example, the reaching of a critical value of the strain at the 
inner surface or the outer surface of the ring. Appropriate modifications of 
this approximate analysis could be made, if desired, to follow the behavior 
of the ring and the fragment after the initiation and/or completion of local 
fracturing of the ring has occurred. 

Finally, note that it is possible for the fragment to have impacted 
more than one ring segment during the At time step in question. The collision 
inspection process reveals this. Then, the quantities noted in Step 4e are 
corrected in sequence starting with the ring segment experiencing the "largest 
penetration", the next largest penetration, etc. 

2.6.2 N-Fraqment Attack 

In the case of "attack" by n idealized fragments, each with its indi- 
vidual m . I . r , <i) , V , and V_„, a similar procedure is used. During 
f t f r IN tT 

each At, the collision-inspection procedure is carried out for every fragment; 
none, some, or all of these n fragments may have collided with one or more ring 
segments. The penetration distance is computed (see Eq. 2.65, for example) 
for each impacted segment; this penetration information is then ordered from 
the largest to the smallest. Then the corrected quantities indicated in 
Step 4e of Subsection 2.6.1 are determined in succession, starting with the 
largest penetration combination, the next largest, etc. After all of the cor- 
rections have been carried out for the present At time interval, the calculation 
process of Fig. 9 proceeds similarly for the next At. 

+ • » 

It should be noted that in this approximate calculation, only the coordinate 
increments of the fragment and of the impacted ring segment are corrected. 

Those for all other ring segments are regarded as already being correct. The 
time increment ,At is regarded as being sufficiently small to make these ap- 
proximations acceptable. 
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SECTION 3 


CONTAINMENT RING RESPONSE PREDICTIONS 

In order to illustrate the application of the present CIVM-JET analysis 
for predicting -the transient responses of 2-d containment structures, two types 
of problems have been investigated and are described in this section. These 
types involve the responses of containment rings to attack either (1) by a 
single fragment or (2) by three equal-size fragments. For convenience and 
simplicity, initially circular 4130 cast steel containment rings of uniform 
thickness* and fixed inner-surface radius are employed. 

For the single-fragment-attack cases, it was desired to explore in a 
preliminary -fashion, if possible, the "effectiveness" of complete containment 
as compared with combined containment-and-def lection (to achieve a desired frag- 
ment trajectory path) for the identical single-fragment attack. Accordingly, 
a plausible candidate for such comparisons was believed to be either a rotor 
rim segment with a number of attached blades or perhaps a disk segment with a 
number of attached blades. Thus, since the NAPTC had conducted numerous rotor 
burst experiments on T58 turbine rotors which were caused to fail in 2, 3, 4, 
or 6 equal-size fragments and since high-speed photoqraphic data were available 
to show the behavior of these fragments as well as of the containment rinqs 
which were subjected to attack by these fragments, an example single fragment 
having the properties of one sixth of a T58 turbine rotor was selected for 
the present CIVM-JET prediction studies. Similarly, for illustrative CIVM-JET 
studies of the response of containment rinqs subjected to 3-fraqment attack, 
the NAPTC fraqments for tri-hub T58 rotor bursts were chosen. In each case 
these selected fraqments were idealized to be "riqid circular fraqments" for 
use in the CIVM-JET calculations, as depicted in Figs. 16a and 16b. 


Two dimensional containment/de flection "rings" which are arbitrarily curved 
and/or of variable thickness can be analyzed by the CIVM-JET program; such 
cases, however, introduce many more variables than time and funds permitted 
studying in the present investigation. 
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The main objectives of the studies discussed in Sections 3 and 4 are 
(a) to demonstrate an illustrative utilization of the present approximate 
analysis capability included in the CIVM-JET program and (b) to display typical 
response behavior and the influence of varying a limited number of geometric 
and material parameters which can be used to characterize 2-d containment/ 
deflector structures. 


3-1 Single Fragment Examples 


The selected single fragment represented by a one-sixth T58 turbine 

rotor fragment is shown in Fig. 16a together with its mass, m^, mass moment 

of inertia I about its CG, translational velocity V„, rotational velocity w , 
t f f 

and its general dimensions. This fragment is idealized for CIVM-JET analysis 
purposes as being a circular disk with duplicate properties, m f , I f , V , and 
ii) f ; its fixed radius (non-deformable fragment) was chosen to be r f = 3.37 inches, 
as a reasonable size-compromise between that for a circle circumscribing the un- 
deformed pre-impact fragment and an "effective radius" of the deformed fragment 
as revealed from NAPTC high-speed photographs. The chosen r^ is, however, 
nearly the same as one would select based upon physical considerations in the 
absence of such photographs. With these properties, the pre-impact fragment 

4 

possesses a translational kinetic energy (KE) of 9.6 x 10 m- lb 'and a rota- 

4 ot 

tional kinetic energy (KE) of 5.4 x 10 in- lb or a total kinetic energy (KE) 

4 or o 

of 15 x 10 in-lb. 


Listed below are the characterizing quantities which remained fixed and 
those that were varied in the present calculations: 

CONTAINMENT RING FRAGMENT 


Fixed Quantities 
Material 

Inner Surface Radius, r 
Variables 

Radial Thickness, h 
Axial Length, L 


Fixed Quantities 
Material 

V V V V V 


r 

eg 


Variables 

None 


where r is the distance from the fragment CG to the rotor axis. For most of 
eg 
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the calculations, frictionless impact ()J= 0 ) was assumed; in a few cases the 
effects of p /0 were explored. 

In the present containment-structure response calculations, the 

quantity of primary interest was the maximum transient circumferential strain 

( £ 00 ^max £ roduced on containment ring during its response to fragment 

attack, since £„ may be a convenient indicator of imminent containment ring 
HU 

fracture; in all cases this maximum occurred at the outer surface of the con- 
tainment ring. 

according to well-established principles of dimensional analysis, one 

may express the dimensionless response parameter (£_,.) as a function of 

Wo max 

the following dimensionless variables: 



RESULT VARIABLES 


where w denotes the weight of the containment ring, alternatively, if one 

assumes that a known critical value of £ nA can be used to define the limit 

US 

of fragment containment, one can represent the containment threshold by the 
following dimensionless characterization: 

' (wr /(.KE\ = * ( h /r, L /g ytl) < 3 - 2 > 

In Eqs. 3.1 and 3.2, f and g, respectively, denotes an unknown but experimentally 
and/or theoretically determinable functional dependence of the left-hand side 
"result" upon the dimensionless variables on the right-hand side. 

Although dimensionless representation of the type given by Eqs. 3.1 and 
3.2 provide the most systematic and orderly way to present ( e Q 0 ^ max or contain- 
ment threshold results, it may be more graphic and clear to show {for the latter 
condition) simply containment ring weight w instead of only (wr)/{KE) Q since in 
the present example both r and (KE) q are held fixed. Other dimensional-result 
displays will be presented for similar reasons . 

For the present CIVM-JET calculations, the free containment ring was 
modeled by means of 40* uniform length finite elements or segments in' the 
* 

It has been shown in Ref- 14 that about 9 or more finite elements per 90-aegree 
sector of a ring produce converged transient response results. 
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the circumferential direction as indicated in Fig. 17a; shown also is the 
nodal numbering of the ring, the attacking fragment, and the point of initial 
impact. The uniaxial static stress-strain properties of the 4130 cast steel 
ring material used in these calculations were approximated by a piecewise 
straight- line-segment fit of static test data furnished by the NAPTC (Ref. 25) , 
defined by the following stress-strain pairs (&,£)•■ 0,z = 0,0; 80,950 psi, 

.00279 in/in; 105,300 psi, .02250 in/in; and 121,000 psi, 0.20 in/in. All of 
the calculations discussed in this section have utilized these static stress- 
strain properties; later, strain-rate effects are discussed briefly. The 
central-difference-operator time-step value used in all cases considered in 
this illustrative study was one microsecond. This value was found to yield 
stable, convergent fragment/ring interaction and response results*. In all 
cases, the inner surface radius of the ring was held constant at 7.50 inches. 

The density of this steel ring material was taken to be 0.283 lb/cu in. 

Shown in Fig. 17b is the outer surface strain e^at the midlength loca- 
tion of elements 4, 5, and 6 as a function of time for cases of y=0 and U=0.5 
for a containment ring with an axial length L = 2.50 in. and a radial thickness 
h = 0.40 in; the sequential locations of fragment-ring impact as a function of 
time are shown in Fig. 17c. One observes that for this rather extreme value 
(y= 0.5) of friction coefficient used, the effect on compared with that for 
frictionless impact/interaction (y=0) is small; hence, most of the subsequent 
results in this report are for y=0. Also, the peak strain response (see Fig. 17b 
has occurred by about 450 microseconds after initial impact. Figure 17d illus- 
trates the distribution of the energy of the system among fragment kinetic 
energy, ring plastic work, ring kinetic energy, and ring elastic energy as a 
function of time for the case y = 0.5, L = 2.50 in, and h = 0.40 in; it is seen 


* . . A# 

Note that the "critical time increment criterion" At^ 0. 8(2/0) ) which 

max 

amounts to about 4.5 microseconds and is sufficiently small to provide con-, 
verged transient response predictions of an impulsively-loaded ring is, how- 
ever, too large to provide converged results for the fragment/ring impact in- 
teraction and response cases. Hence, numerical experiments were conducted with 
various At values, and it was determined that a At of 1 ysec was adequate for 
these cases. 
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that by about 600 microseconds after initial impact, these energies have 
reached essentially an "equilibrium" state. 

The effect of y = 0 vs. y = 0.5 on the maximum circumferential normal 

strain (£„_) is shown in Fig. 18 as a function of both the ring thickness h 
u o max 

and the thickness ratio h/r for containment rings of 2.50-inch axial length. 

It is seen that the value of friction coefficient y has only a small effect 
upon the predicted ( £ 00 ) max * Hence, to minimize computing time, the results 
produced and discussed in this section are for cases of y = 0 . 

Predictions of containment ring responses to impact by the single 
idealized fragment shown in Fig. 16a for rings of axial lengths L = 5/8 in, 

5/4 in, and 10/4 in (each axial length is increased by a factor of 2 ) were 
carried out for various ring thicknesses h and for y = 0 . 

Shown in Fig. 19 is (£„„) as a function of h (and h/r) for fixed 
3 00 max 

values of L (and L/r) ; (£„„) is seen to decrease rapidly with increasing 

00 max 

ring thickness for each given ring axial length ratio. 

Instead of plotting (£-„) versus h/r for given values of L/r one 
r 00 max 

can plot with equal validity the implied ring weight w and/or (wr)/(KE) Q . This 
is shown in Fig. 20- As expected on physical grounds, (Egg)^^ decreases 
essentially monotonically with ring weight for each given value of L or L/r. 


A further interesting way to depict these maximum strain predictions as 

a function of the problem variables is to plot ring weight w (or (wr)/(KE} Q ) 

versus ring axial length L (or L/r) for fixed value of ( £ QQ^ max as shown ln 

Fig. 21. If one assumes that ring fracture might occur at various fixed values 

of the normal strain £ QQ , these curves could be regarded as giving an estimate 

otf 

of the containment ring weight as a function of ring axial length. Thus, one 

notes that these predictions indicate that (assuming that a known fixed value 

of e denotes the containment threshold) the containment ring weight de- 

00 

creases monotonically as the axial length (or length ratio) of the’ ring in- 
creases. However, the present predictions lose their validity as L increases 
too much because the actual structural response to attack by a fragment of 
given axial-direction dimensions becomes three dimensional whereas, in the 
present 2 -d model this added axial direction ring material is treated as 
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behaving in a 2-d fashion. The result is that the present predictions tend to 
underestimate the structural response compared with the actual 3-d behavior. 
Hence, as pointed out in Subsection 1.3, one may employ the present CIVM-JET 
analysis to do parametric calculations, to study trends, and to compare vari- 
ous potential containment- structure materia Is; however, it remains essential 
as of now to develop selected experimental containment-threshold data to bridge 
the gap between the present simplified, convenient 2-d predictions and the 
actual behavior. 


3 . 2 Three Fragment Examples 

To illustrate the use of the CIVM-JET- 4A analysis and program to pre- 
dict containment ring responses to multiple fragment attack, it was decided to 
analyze NftPTC Test No. 67 in which a 4130 cast steel containment ring of 
L = 1.501 in, h = .339 in, and inner surface radius = 7.50 in. was subjected to 
a trihub burst of a T58 turbine rotor operating at 18,830 rpm. It appears 
from the high-speed movies and from post-test inspection that the ring did 
succeed in containing these fragments. 


Shown in Fig. 16b is a schematic of one pre-impact trihub burst frag- 
ment together with the idealized fragment model selected for use in the present 

-2 2 - 

calculations. Each fragment has m = 0-932 x 10 lb-sec /in, I = 0.666 x 10 

lb-sec-in, V = 5515 m/sec, u> = 1918 rad/sec, and (KE) = 27.1 x 10' in- lb. 
r r o 

For the idealized model r f is taken to be 2.42 in. 

Because of time and funding constraints, only two illustrative calcula- 
tions have been carried out for this problem — both assuming frictionless 
impact interaction (y=0) . In one case the 4130 cast steel ring material was 
assumed to behave m an elastic, strain hardening (EL-SH) fashion without 
strain-rate effects. In the other case, this behavior was modified to include 
strain-rate effects by assuming this material to behave like "mild steel" with 
strain-rate constants p = 5 and D = 40.4 sec ^ (Ref. 27) where the rate- 
dependent mechanical sublayer yield stress is related to the corresponding 
static yield stress by 





. 1 + 

£ 

!/p - 

- 

D 

— 


(3.3) 
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For these calculations the ring was modeled by a total of 36 finite elements 
(segments) so that convenient impact symmetry would occur. 

Deformed ring profiles observed experimentally as well as those pre- 
dicted in these two calculations are shown in Fig. 22 at the following times 
after initial impact (TAII) : 0, 350, 700, and 1400 microseconds. It is seen 
that these two predictions exhibit small differences; in turn, these predic- 
tions compare favorably with the photographic observations (Ref. 25) . Since 
there are uncertainties in the "proper modeling" of this fragment (i.e., r^.) 
and fragment/ring interactions (value or values for y ¥ 0 ) as well as for the 
strain-rate material properties of 4130 cast steel, these comparisons should 
be regarded only as tentative. Further modeling and calculation studies 
should be carried out; also, more detailed and precise experimental data for 
such a case should be obtained by using the recently improved experimental 
techniques, as wel-l as including transient strain measurements. 

Although no transient strain measurements are available for comparison 
with predictions, it is interesting to examine the predicted outer-surface 
strains at several locations on a "lobe" of the deformed ring as a function 
of time for both the EL-SH and the EL-SH-SR calculations. These transient 
strains are shown in Fig. 23. It is seen that the "effective material 
stiffening" associated with the increased yield stress arising from strain- 
rate dependence results in significantly smaller peak transient strains. 

Finally, by an inspection of the outer surface mid-element circumferential 
strains of all elements throughout each calculation*, the maximum e^q was de- 
termined for each case. It was found for this "lobe" that ( £ 00 ) max was 17.74% 
and 12.40% for the EL-SH and the EL-SH-SR calculation, respectively. 


, # s | 

The response time studied ranged to about 1400 microseconds after initial im- 
pact. 
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SECTION 4 


DEFLECTOR RING RESPONSE PREDICTIONS 


The primary purpose of this section is to illustrate via some simple 
examples the application of the CIVM-JET method for predicting the responses 
of idealized 2-d fragment-deflector structures subjected to impact by a 
single idealized fragment. Predicted also is the (changed) path of the at- 
tacking fragment. As depicted in Fig. 2, one seeks to prevent the attacking 
fragment from entering the "protected zone” but to permit or perhaps even en- 
courage, if feasible, fragment escape from the engine casing, and penetration 
into the "unprotected zone", since this condition might define a minimum- 
weight design. 

In order to apply the present 2-d transient structural response analysis 
method to this fragment/structure interaction problem, it is useful and con- 
venient for present purposes to view the deflector structure as consisting of 
an integral locally-thickened portion of the engine casing as shown schemati- 
cally in Figs. 2, 7, and 24. Further, one may account approximately for the 
"restraining effect" of the adjacent portion of the engine casing upon the 
(thick) "deflector structure" by regarding the non- thickened engine casing 
as consisting of a very long cylindrical shell of uniform thickness as de- 
picted in Fig. 24a; section views through the "standard" casing and through 
the deflector region are shown xn Figs. 24b and 24c, respectively. Hence, 
one is led to the idealized elastic-foundation-supported deflector model 
shown in Fig. 24d, where the uniformly distributed elastic foundation stiffnesses 

per unit circumferential length are denoted by k and by k , in the normal 

N T 

and in the tangential direction, respectively. 

As perhaps a reasonable first estimate, these elastic foundation con- 
stants k^ and k may be estimated from (a) the stiffness of this casing in a 

uniform radial expansion mode for k , and (b) the torsional first mode stiff - 

N 

ness for k^. In the limit of an infinitely long cylindrical shell, one may 
readily show from free-body equilibrium of a circumferential portion of length 
dr], the strain-displacement equations, and the stress-strain relations for 
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isotropic material that dk „ is given by 

N 


or, for a short cylindrical shell by 

<£k.. = 


E. h. 


0-^*) 


d2 




(4.1a) 


E, h. 


r. 


me 


A 


a 


(4.1b) 


where subscript c pertains to the engine casing (cylindrical) , E^ is the elas- 
tic modulus, V is the Poisson ratio, and h is the thickness and r is the 
c c me 

midsurface radius of the engine casing. Hence, the foundation stiffness k^ 
per unit circumferential length (drt = 1) is given by the quantity in square 
brackets in Eq. 4.1a or Eq. 4.1b. Similarly, from St. Venant's torsion theory 
for a cylindrical shell element of dx axial length, one can. show that dk T is 
given by 


d K t = 


dX 


G c h c 


(4.2) 


where G is the shear modulus of the engine casing material. Since the tor- 

c 

sional stiffness is independent of the axial length of the cylindrical shell, 

one may employ k = G h . 

T c c 

Because of the many geometric, mechanical, and impact variables present 
in fragment/deflector interaction and response problems, it is instructive to 
utilize some even simpler, more approximate idealizations for such problems 
as indicated, for example, in Fig.. 24e. After studying the responses of such 
simpler models in various impact situations, one can more effectively select 
the more interesting and' illuminating conditions for study in conjunction with 
the more realistic modeling depicted in Fig. 24d. Accordingly, studies in- 
volving the use of the simpler model shown in Fig. 24e are discussed in Sub- 
section 4.1. This is followed in Subsection 4.2 by a description of a more 
restricted set of calculations carried out utilizing the more realistic model 
of Fig. 24d. In both of these studies because of time and funding constraints, 
only uniform- thickness deflector structures were analyzed although variable- 
thickness deflectors as indicated schematically in Figs. 2 and. 7 might very 
well be of interest in practical applications and can be analyzed by the 
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Cl VM- JET- 4 program described in Appendix A. Also, for similar reasons, only 
deflectors with an included angle i|/ of 90 degrees, an inner surface radius 
of 7.50 in, and conditions of frictionless impact (p = 0) were analyzed. 

In all cases, the deflector structure was assumed, for illustration, to consist 
of 4130 cast steel-, the physical and mechanical properties of which have been 
cited in Subsection 3.1. 

For both types of idealized deflectors (Figs. 24d and 24e) , these studies 
employed a single idealized fragment with the following properties: 

m, = 4.6 x 10 3 (lb-sec 2 ) /in r = 3.37 in V = 6400 in/sec 

f f f 

= 2.61 x 10 2 lb-sec 2 -in r = 3.05 in 0) = 2100 rad/sec 

f eg f 

4 4 4 

(KE) = 9.6 x 10 in-lb (KE) = 5.4 x 10 in- lb (KE) = 15 x 10 in-lb 

ot or o 

A structural response quantity of interest with respect to preventing 
deflector structure rupture (along the to-be-protected zone) might be the maxi- 
mum circumferential tensile strain (£,,,.) which occurs at either the outer 

08 max 

surface or the inner surface of the deflector ring at some to-be-determined 
circumferential station for each case. Similarly, the determination (see Fig. 24e) 
of the quantities z ^* , , and 3* at the instant of fragment escape from the de- 

flector structure should be adequate to define whether or not the deflector has 
changed the path of the attacking fragment sufficiently to prevent its entering 
the "protected region" + . Therefore, these four quantities ( £ e g j max ' z d * ' a a *' 
and 3* (or their dimensionless counterparts) are of primary interest in the 
studies reported in Subsections 4.1 and 4.2. 

Finally, for these studies each deflector ring was modeled by 10 equal- 
length segments or finite elements (see Fig. 24e, for example) . 

4.1 Hinged-Fixed/Free Deflector Examples 

AS' shown in, Fig. 24e, the idealized fragment deflector structure has a 
hinged-fixed support at one end but is free at the other. Thus under fragment 


+ At time prior to fragment escape, the "fragment diversion quantities" are 

denoted by z,, a., and 3 (i-e., without the asterisk), 
d a 
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attack, this structure experiences impact/interaction forces Cor velocity 
increments), inertial forces, internal elastic and plastic forces, and "tran- 
slational support forces" at its hinged-fixed end. The initial point of frag- 
ment impact against the structure is identified in Fig. 24e by the angle 0^.. 

By applying the CIVM-JET analysis and computer program, one can predict the 
motion and path of the fragment as well as the large-deflection elastic- 
plastic transient response of the deflector structure. 

Summarized concisely in the following tabulation are the characterizing 
quantities which were held fixed and those which were varied in the present 
studies: 


HINGED -FIXED/FREE DEFLECTOR EXAMPLES 


DEFLECTOR RING 

FRAGMENT 

OTHER CONDITIONS 

Fixed Quantities 

Material 

Material 

y = 0 

Inner Surface Radius, r 

V' V V 


Subtended Angle, tjj 

W , r , r 
f f eg 


Variables 

Thickness, h, 
d 

None 

0 (for some cases) 

Axial Length, L 




Utilizing dimensional- analysis, one may, in principle, express the "dimension- 
less response parameters" ( e gg) max ' a d*' z d*^ r ' an< ^ as a ^ uncfc ^- on °f the di- 
mensionless variables, as follows for somewhat more general cases than indi- 
cated in the above tabulation: 


C£ ee U = f, CVr, L /r, f, e., ^ r V(KE\, 
oij* = 4 (Vn L A r, 9 Z> 
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Z Zr = ^ c V , L A, V, e Xt C (4 3o) 

^ = ^A-(^/ r > L/r> W' > 0J , (WO/f/CE), ; /* } (4.3d) 

where a single idealized fragment with the previously-defined geometric pa- 
rameters is assumed to be employed in all cases. For the present studies, 

however, y, $, r, (KE) , and the deflector ring material are held fixed. 

o 

Thus, Eqs. 4.3a through 4.3d reduce to 

(^00) MA^ " f ( H d/r> L / r > 0 0 ' (4.4a) 


* s f ( h d/r > L / r > 0 ^ 

= C h Vn l a, 

= ^3 ( h V r ; y r 3 ) 

=■ +4 ( b 1 L / r > ) 


(4.4a) 

(4.4b) 

(4.4c) 
(4 . 4d) 


Geometric similarity is assumed to be maintained. 

In order to make a limited assessment of the effects of initial impact 

location 0 upon the fragment-deflector responses, calculations were carried 

out by varying 0 for L — 1.25 in. and h = 0.40 in. These results are 

summarized below for 0 vs. (£ ' ) ’ 

I 00 max 


0 I (deg) 

16 

27.5 

39 

61 

(C QQ ) „ (percent) 
o 0 max 

12.6 

10.6 

7.2 

4.9 


and in Figs. 25a and 25b for a and z_, (and z./r) , respectively, as a function 

ad a 

of time after initial impact (TAII) ; 3 is of lesser interest and is not shown. 

For this highly-idealized configuration, it is seen that the response 
quantities are largest when 0 is the smallest. However, the closer the 
point of initial impact is to the -hinged-fixed support, the less valid is this 
model for approximating the behavior of deflector structures such as that de- 
picted in Fig. 2. Further, the Cl VM- JET - 4A program which was utilized for 
these calculations has in it the restriction that proper predictions will not 
‘result if the attacking fragment impacts the finite element whose one end is 
located at the hinged-fixed support ; fragment impact/interaction is handled 

+ This same restriction applies for any other "fixed" type of support such as 
ideally clamped, etc. 
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properly when impact occurs with any of the other finite elements with which the 

deflector structure is modeled for analysis. In subsequent calculations it was 

decided to keep 0 fixed at 16 degrees, and to vary h for each of several fixed 

values of L. The resulting predictions for (£~ n ) are shown in Fig. 26 as a 

00 max 

function of h (or h /r) for various fixed values of L (or L/r) . Alternatively, 
d d 

one may display (£„„) as a function of ring weight w or (wr)/(KE) for vari- ■ 

90 max o 

ous fixed values of L (or L/r); see Fig. 27. Further, one may display the de- 
flector ring weight w or wr/(KE) as a function of L (or L/r) for various fixed 

o 

values of (£„_) as shown m Fig. 28. If one assumes that some given (£„.,) 

00 max 00 max 

will insure the avoidance of deflector ring fracture. Fig. 28 indicates that the 
attendant deflector ring weight decreases monotonically as the axial length L of 
the fragment-deflector structure is increased; of course if L becomes^ too large, 
the actual behavior will deviate from the 2-d behavior which the present CIVM-JET 
analysis and program requires. All of these trends are consistent with the behavio: 
that is expected on physical grounds. 

A similar effectiveness trend may be observed by examining the effect 
upon the path of the fragment from its impact and interaction with the deflec- 
tor structure. Shown in Figs. 29a and 29b are, respectively, a and z (or 

d d 

z /r) at TAII = 650 microseconds as a function of h n (or h/r) for various 
d del 

fixed values of L (or L/r) . Here again it is seen that an increase of L for . 
otherwise fixed conditions leads to larger fragment path deviations. Note 
that Figs. 29a and 29b show fragment path information at TAII = 650 micro- 
seconds rather than at the fragment- escape point (defining a * and z^*) ; the 
latter occurs somewhat later for most of the cases shown, and would have re- - 
quired longer computer runs to obtain. For present illustrative and compara- 
tive purposes, however, the and data shown at TAII = 650 microseconds 
are believed to be informative and (from spot check examinations) to differ 

little from a,* and z *. 

d d 

4.2 Elastic-Foundation- Supported Deflector Examples 

The influence of "support structure" upon the response and effective- 
ness of deflector structure has been explored in a brief approximate fashion 
by employing the idealized elastic- foundation- supported deflector model shown 
in Fig. 24d- A single idealized fragment with the same properties as defined 
in Subsection 4.1 was the "attacking fragment". 
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Summarized in the following are the fixed quantities and the variables 


employed : 


ELASTICALLY-SUPPORTED DEFLECTOR EXAMPLES 


DEFLECTOR RING 

SUPPORT STRUCTURE 

FRAGMENT 

OTHER 

CONDITIONS 


Fixed Quantities 

Material 

Inner Surface Radius, r 
Axial Length , L 
Subtended Angle, if) 

Material 

Inner Surface Radius, r 

Material 

V 

V “f 

r f' r CG 

U = 0 
9 I 

Variables 

Thickness, h, 
d 

Thickness , h 

c 

None 

None 


For the previously-discussed elastic-foundation modeling (Fig. 24d) and for 

somewhat more general situations than indicated- in the above tabulation, one 

may express the dimensionless response quantities (£, A ) , 0 1 *, z */r, and 

oo max d d 

3* as a function of appropriate dimensionless variables as follows: 


(£ ee )~« ' L /r / v Vr i 0 X twr '/CKE) o yx| (4.5,) 

<*/ - % ( h Vr, L/r, v, Vr, 0* , (4 . 5b) 

z J/r = ? 3 ( h Vr, L /r, Vn Si, f Wr ) / (KQ 0 /t) 

* ’ (4.5c) 

I?* = k«/>-A.< w, /(ke),i/ 1 ) (4. 5 a) 


in Eqs. 4.5a through 4.5d, it is assumed that geometric similarity is maintained 
and that the deflector structure and the engine casing (support) structure con- 
sist of the same given material. Also, a single idealized fragment having 
the previously-defined geometric properties is assumed to be used in all cases + . 


Otherwise, many more dimensionless variables would be present. 
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In addition, since i|>, r, l, (KE)^, 0^., and y are held fixed m the .present 
studies, Eqs. 4.5a through 4 . 5 d reduce to: 


' 1 MAX 

* %■. ( h Vr, 

(4.6a)- 


= ( h Vt 

(4.6b) 

z <?r - 

O/r, K/r) 

(4.6c) 

II 

* 

?4 (h* fr , Kb) 

(4. 6d) 

•noted fixed values 

are 


: 90 deg 

(KE) = 15 x 10 4 in-lb 
o 


: 7.50 in 

0^. = 16 deg 


1 1.25 in 

y = 0 



Thus it is seen that the "retained variables" are h and h . 

d c 

For time-and-economy reasons only two values of casing thickness, 
h / were explored: 0.1 in and 0.6 in; three values of deflector-ring thickness, 
h^, were used: 0.20, 0.40, and 0.80 in. Assuming the engine casing to con- 
sist of steel with E =’ 29 x 10 6 psi and G = 11.5 x 10 6 psi, the elastic 
foundation stiffnesses were estimated to be: 


CASE 

h (in) 

C 2 
k N (lb/ in ) 

k T (lb/in 2 ) 


A 

0.10 

.544 x 10 5 
1.15 x 10 6 


B 

0.60 

5 

3.07 X 10 
6.90 x 10 6 


Here, in accordance with the estimates furnished by Eqs. 4.1a and 4.2, the 
thicker (0.60 in) engine casing (or foundation support) provides increased 
normal-direction and increased tangential-direction elastic stiffness com- 
pared' with that for the thinner (0.10 in) casing structure. 


Shown in Fig. 30 is ( e no) as a function of deflector structure 

ho max 

thickness h (or h /r) for the two sizes of support structure thickness*: 


* 

For present purposes, one is interested primarily in the effect of various sets 

of support stiffnesses (k , k ) — not in h values themselves; thus, one should 

NT c 

pay no attention to the h values themselves • 

c 
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Case A fox h =0.1 in. and Case B for h = 0.6 in. Note that L = 1.25 in, 
c c 

0 = 16 deg, and y = 0 have been used. It is seen that the more rugged Case B 

support structure reduces (£„,.) for all values of deflector structure thick- 

89 max 

ness h _. However, for either Case a or Case B, the dependence of (£,,„) 

d 00 max 

upon the deflector thickness h. is somewhat unexpected in that the "expected 

d 

monotonic decrease" of (£„„) with increasing h, is not observed. The curi- 

o U itia.x d 

ous behavior seen in Fig. 30 may be the result of having "inspected" the e QO 

DO 

value at the inner and the outer surface only at the midspan station of each 

finite element. It should be expected that the location of (e ) may very 

' (Jo max 

well be at some other spanwise location. Hence, a more thorough "inspection" 

of should reveal a more "sensible" trend of (£„.) with increasing h, - 
08 00 max d 

For example, one could feasibly make such evaluations at the inner and the 

outer surface at each of the three spanwise Gaussian stations of each finite 

element. Such more thorough studies will be conducted in the near future. 

Finally, for all of the cases shown in Fig. 30, (£_,.) was found to have 

U v max 

occurred on the outer surface of the ring, but not necessarily in the same 
deflector- ring finite element. 

• The influence of support-structure thickness h upon diverting the 

c 

attacking fragment from its pre- impact path is shown in Fig. 31a for a. and 3/ and 

d 

in Fig. 31b for z (or z./r) as a function of time for a deflector structure 
d d 

with L = 1.25 in and h = 0.40 in. It is seen, as expected, that the more 

d 

rugged support structure increases the amount by which the fragment is caused 
to deviate from its pre-impact path.. On the other hand, the amount of frag- 
ment-path deviation changes only slightly as a function of deflector ring 

thickness h. for a fixed value of engine casing (or support) thickness h as 
d c 

seen from Figs. 32a and 32b for and z^ (or z^/r) , respectively, at TAII = 

650 psec which is close to but not at the fragment escape point for all cases. 

Thus, Figs. 31a through 32b suggest that the ruggedness of the (linear elastic) 

support structure is much more effective in changing the path of the attacking 

fragment than is achieved by simply increasing the thickness h of the deflector 

d 

structure itself for a given set of support stiffness values k ,k . 

N T 
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In Figs. 31a and 32a, both the fragment location angle and the frag- 
ment path angle 3 (angle between the original and the current direction of the 
translational velocity vector of the fragment) are shown. Note that while 
the slope of the $ curve is zero, no fragment-ring impacts are occurring {see 
3 for Case B in Fig. 31a) ? at later times one would observe further fragment- 
ring impacts . 

4 . 3 Comments 

* Ji 

Since these parametric calculations have been of very limited scope, 
one must use caution so as to avoid coming to premature conclusions. More ex- 
tensive studies of this type together with carefully posed "protection 
criteria" are recommended in order to assemble enough "trends predictions" 
to permit making more soundly based' conclusions. Further, one should re- 
member that the effect of support structure upon the behavior of deflector 
structure has been approximated as that of a linear elastic foundation. This 
approximation is believed to be a good one for small deformations but clearly 
degenerates when the deflections become larger and larger. Further effort 
to develop a better (nonlinear) approximation for the "foundation stiffness" 
may be advisable — preferably either concurrent with or following the recom- 
mended more extensive parametric studies. 

It is apparent that the circumferential extent of fragment-deflec- 
tor structures required for most prospective situations would most likely be 
about 180 degrees, more or less, in order to insure protection for all criti- 
cal directions of possible "fragment release"; hence further studies of frag- 
ment-deflector performance involving tp = 180 degrees appear to be advisable. 
Also, the effectiveness of variable thickness deflector structure should be 
explored. 

With these more extensive and realistic calculations* together with 
experimental fragment deflector performance data- for verification and to 
assess 3-d response effects, it should then be possible to reach a reasonable 
judgment as to whether complete fragment containment or fragment deflection 
will be the more efficient approach for those cases for which either alterna- 
tive is, basically-, permissible. 

it 

Including varying also at least 9^., p, k^/E and k^/E. 
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SECTION 5 


SUMMARY AND COMMENTS 


Arguments are presented supporting the proposition that the development 
and the selective utilization of prediction methods which are restricted to 
two-dimensional (2-d) transient large-deflection elastic-plastic responses of 
engine rotor hurst fragment oontainment/def lector structures are useful and 
advisable for parametric and trends studies. In conjunction with properly- 
selected experimental studies of rotor-burst fragment interaction with actual 
containment and/or deflector structure — wherein three-dimensional effects 
occur — one may be able to develop convenient rules-of-thumb to estimate cer- 
tain actual 3-d containment/deflection structural response results from the 
use of the very convenient and more efficient but simplified 2-d response 
prediction methods. 


Accordingly, the collision- imparted velocity method (CIVM) for predicting 
the collision-interaction behavior of a fragment vfhich impacts containment/deflec- 
tor structures has been combined with a modified version of the JET 3C two-dimen- 
sional structural response code to predict the transient large-deflection, 
elastic-plastic responses and motions of con tainment/def lector structures sub- 
jected to. impact by one or more idealized fragments. Included are the ef- 
fects of friction between each fragment and the attacked structure. A single 
type of fragment geometry has been selected for efficiency and convenience in 
these fragment/structure interaction and response calculations, but the most 
x -^important fragment parameters, it is believed, have been retained; n fragments 

each with its own m„, 1^, V_, 0)_, r_, and r may be employed, 
fffff eg 

Calculations have been carried out and reported illustrating the ap- 
plication of the present CIVM.-JET analysis and program for predicting 2-d 
containment ring large-deflection elastic-plastic transient responses to (a) 
single- fragment impact and (b) to impacts by three equal-size fragments. The 
influence of containment ring thickness, axial length, and strain-rate' de- 
pendence, as well as friction between the fragment and the impacted structure 
have been explored. 
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Similar illustrative calculations have been performed and reported for 
the responses of (a) ideal hinged-f ixed/free and (b) elastic-foundation- 
supported fragment-deflector rings of uniform thickness to impact by a single' 
idealized fragment. With respect to the latter more-realistic and yet- 
idealized model, it was found that plausible increases in the values for the 
stiffnesses of the "elastic foundation" was a more effective means for 
changing the path of the attacking fragment than by plausible increases xn 
the thickness of the deflector ring itself. 

Because of time and funding constraints, these calculations were of 
very limited scope; some’ interesting response trends, however, were noted. 

More extensive calculations in which more of the problem variables accommo- 
dated in the CIVM-JET-4A analysis and program are included and in which each 
of certain quantities are varied over plausible ranges would provide a more 
illuminating picture of the roles and effectiveness of these parameters with 
respect to fragment-containment and/or fragment-deflection protection. 

It is believed that the present analysis method and program (CIVM-JET-4A) 
provides a convenient, versatile, and efficient means for estimating the ef- 
fects of numerous problem variables upon the severe nonlinear 2-d responses 
of variable-thickness containment/defelctor structures to engine-rotor- 
fragment impact. Although a limited number of comparisons of predictions 
with appropriate experimental data show encouraging agreement, more .extensive 
comparisons are required to establish a firmer assessment and confidence 
level in the accuracy and the adequacy of the present prediction method, con- 
sistent with its inherent 2-d limitations. 

Finally, in addition to carrying out more extensive parametric cal- 
culations and comparisons with appropriate experiments (both containment and 
deflector type) , it is recommended that the following CIVM-JET analysis 
matters be investigated: 

(1)* The development of an improved model for accounting 
for the restraint effects of structure attached to 

The advisability of effecting these improvements will be to an extent dependent 
upon the outcome of the recommended additional theoretical-experimental corre- 
lation studies. 
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(2) 


or located adjacent to the containment and/or the de- 
flector structure; this may involve defining an ap- 
propriate nonlinear hardening- type elastic or elastic- 
plastic "foundation model". 

The feasibility of CIVM-JET-type analyses of situations 
wherein engine rotor-burst fragments strike the contain- 
ment/def lector structure and then are struck by remain- 
ing rotor structure attached to the shaft, and then 
once again strike the C/D structure, etc. 

(3) * The necessity for including transient deformation 

effects of the attacking fragments. 

(4) The feasibility of employing the CIVM scheme in con- 
junction with finite-difference or finite-element 
she 11- structure codes xn order to represent the 
actual 3-d transient large-deflection elastic-plastic 
structural response behavior of shell structures sub- 
jected to fragment attack. 


* 

Ibid, page 59. 
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Cb) After: Fragments Contained Within Casing 


FIG. 1 ROTOR BURST CONTAINMENT SCHEMATIC 
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HUB OR SECTOR FRAGMENTS 
(DISK FRAGMENTS) 

3 SCHEMATICS OF VARIOUS TYPES OF 


MULTIPLE-BLADE FRAGMENTS 




SHAFT-TYPE FAILURE 
ROTOR-BURST FRAGMENTS AND FAILURES 
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[a) 2D: Short Cylindrical Container 



(b) 3D: Long 'Cylindrical Container 



(c) Schematic Fan Blade Containment Concept 

FIG. 4 SCHEMATICS OF TWO-DIMENSIONAL AND THREE-DIMENSIONAL ENGINE CASING 
STRUCTURAL RESPONSE TO ENGINE ROTOR FRAGMENT IMPACT 







CHOICE OP TRANSIENT STRUCTURAL 
RESPONSE ANALYSIS METHOD 


2D 

RINGS, BEAMS 


3D 

SHELLS 


3D 

SOLIDS 


RESTRICTED TYPE OF 
DEFORMATION 


MORE GENERAL DEFORMATIONS EVEN MORE GENERAL TYPE 

OF DEFORMATION 


INCLUDES MAIN TYPES 
OF EXPECTED BEHAVIOR 


CAPABLE OF PHYSICALLY MORE 
REALISTIC SIMULATION 


LIMITED NUMBER OF CON- 
DITIONS READY FOR IM- 
MEDIATE ANALYSIS 


CALCULATIONS ARE MORE COMPLEX AND EXPEN- MUCH MORE EXPENSIVE TO 

RELATIVELY SIMPLE, SIVE TO USE USE 

SHORT, AND INEX- 




USE JET, CIVM-JET, ETC. (2D CODES) FOR 

4| MATERIALS SCREENING 

4| PARAMETRIC CALCULATIONS 

0 THICKNESS ESTIMATES FOR CONTAINERS 

AND DEFLECTORS: h„ 

2D 



CONDUCT EXPERIMENTS TO DETERMINE THICKNESS NEEDED FOR 
CONTAINMENT/DEFLECTION 

£ 2D SHORT STRUCTURES 
^ 3D LONGER STRUCTURES ■+ FIND MIN. 

REQUIRED THICKNESS: h 

OPT 



CORRELATE 2D CALCULATIONS WITH EXPERIMENT TO FIND RULE-OF-THUMB 
CONVERSION FOR ESTIMATING h 

OPT 


FIG. 5 SUMMARY OF CHOICE OF TRANSIENT STRUCTURAL RESPONSE ANALYSIS 
METHOD AND PLAN OF ACTION FOR THE ENGINE ROTOR FRAGMENT CON- 
TAINMENT/DEFLECTION PROBLEM 
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FREE RING 


RADIAL AND TANGENTIAL 



FOUNDATION-SUPPORTED RING 
IDEALIZED 2D MODELS 


FIG. 6 CONTAINMENT-STRUCTURE SCHEMATICS 
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IDEALIZED 2D MODELS 


FIG. 7 DEFLECTOR STRUCTURE SCHEMATICS 
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NOTE: Ring is divided into discrete segments (or finite elements) 
for analysis. 

Y,Z represents a Cartesian inertial reference frame. 

FIG. 8 SCHEMATIC OF A 2D CONTAINMENT RING SUBJECTED TO FRAGMENT IMPACT 
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FRAGMENT COLLIDES WITH RING 


COLLISION-INTERACTION CALCULATION 
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RING 
- > 

VELOCITIES IMPARTED TO 
IMPACTED RING SEGMENT 


CALCULATION OF MOTION 
4AND STRUCTURAL RESPONSE 
OF RING 
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RESPONSE OF RING 
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FRAGMENT 
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VELOCITIES OF FRAGMENT 


CALCULATION OF MOTION 
OF RIGID FRAGMENT 


MOTION OF 
RIGID FRAGMENT 


No 


COMPARE 


COLLISION 
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CONTINUE FOR NEXT 
TIME STEP OF 
CALCULATION (OR 
STOP, IF DESIRED) 


FIG. 9 INFORMATION FLOW SCHEMATIC FOR PREDICTING RING 
AND FRAGMENT MOTIONS IN THE COLLISION- IMPARTED 
VELOCITY METHOD 
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IDEALIZED MODELS 
(a) Single Blade Fragment 

FIG. 10 SCHEMATICS OF ACTUAL AND IDEALIZED FRAGMENTS 


FINAL 
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BEFORE IMPACT 


ACTUAL 

IDEALIZED 



POST-TEST 


T58 Turbine Rotor Bladed-Disk Fragment 


FIG. 10 CONTINUED 


BEFORE IMPACT 



POST-TEST 

(c) 1/3 T58 Turbine Rotor Bladed-Disk Fragment 


FIG. 10 CONCLUDED 



(b) Fragment and Impacted Segment 
FIG. 11 IDEALIZATION OF RING CONTOUR FOR COLLISION ANALYSIS 
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(c) Directions +N and +T 
FIG. 11 CONCLUDED 
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FIG. 


P S /B 
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(b) B 3 < 0, V > A 
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P PLANE 


TO DESCRIBE THE STATE AT EACH CONTACT INSTANT FOR VARIOUS 
IMPACT PROCESSES 
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LOCAL SYSTEM CARTESIAN REFERENCE 

'V COORDINATES Y, Z 'L COORDINATES 

, w. Ip X ^ DISPLACEMENTS 
q , . . . , q ^ ELEMENT GENERALIZED 
1 8 DISPLACEMENTS 


FIG. 14 COORDINATES, GENERALIZED' DISPLACEMENTS, AND NOMENCLATURE 
FOR A 2D ARBITRARILY-CURVED-RING FINITE ELEMENT 
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ILLUSTRATIVE LOCATIONS 
AT TIME INSTANT t . , 

:+i 

FOR SEE EQ. 2.64 


Flti. 15 INSPECTION FOR DETERMINING A COLLISION OF THE FRAGMENT WITH THE RING 
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PIG- 15 CONCLUDED 



3 BLADES/FRAGMENT 




1/6 T58 TURBINE ROTOR FRAGMENT 
-3 2 

m = 4.6 x 10 LB-SEC /IN 

* -2 2 
T = 2.61 x 10 LB-SEC -IN 
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0) = 20,000 RPM 

(2100 RAD/SEC) 

V = 6400 IN/SEC 

(a) Circular Disk Representation of a 


CIRCULAR DISK IDEALIZED MODEL 
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£ 

I = 2.61 x 10” 2 LB-SEC 2 -IN 

= 20,000 RPM 
(2100 RAD/SEC) 
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1/6 T58 Turbine Rotor Fragment 



1/3 T58 TURBINE ROTOR FRAGMENT 
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m = 9.32 x 10 LB-SEC /IN 

i -2 2 
R = 6.66 x 10 LB-SEC -IN 
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0)^. = 18,830 RPM 
J ' (1972 RAD/SEC) 

V = 5515 IN./SEC 

(b) Circular Disk Representation 



CIRCULAR DISK IDEALIZED MODEL 
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m_ = 9.32 x 10 LB-SEC /IN 

f -2 2 
I_ = 6.66 x 10 LB-SEC -IN 
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10 = 18,830 RPM 

f (1972 RAD/SEC) 
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r = 2.42 IN 

a 1/3 T58 Turbine Rotor Fragment 


FIG. 16 FRAGMENT IDEALIZATIONS USED IN THE PRESENT STUDY 
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NODAL STATION 1 


I 



RING 

4130 CAST STEEL 
r = 7.5 IN 
L = 2.50 IN 
h =0.40 IN 
p = 0.283 LB/ CU . IN 


FRAGMENT 

r_ = 3.37 in 

^ -3 2 

m = 4.6.x 10 LB-SEC /IN 

f -2 2 
I f = 2.61 x 10 LB-SEC -IN 

V = 6400 IN/SEC 

td f = - 2100 RAD/SEC 


(a) Ring/Fragment Modeling and Nomenclature 


FIG. 17 RING/FRAGMENT MODELING AND RESPONSE DATA FOR CONTAINMENT 
RINGS SUBJECTED TO, SINGLE-FRAGMENT ATTACK 
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STRAIN (PER CENT) 



(b) Ring Element Midlength Outer Surface Circumferential Strain Histories 


FIG. 17 CONTINUED 




(c) Fragment Impact Position as a Function of Time After Initial Impact 

for Frictional and Frictionless Impact Cases for a Ring of Constant Thickness 


FIG. 17 CONTINUED 




ENERGY OR WORK X 10 (IN-LB) 



(d) Illustration of the Time Histories of Fragment Kinetic Energy, 
and Containment Ring Elastic Energy, Kinetic Energy, and 
Plastic Work 


FIG. 17 CONCLUDED 
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FIG. 18 EFFECT OF FRICTION ON THE PREDICTED MAXIMUM CIRCUMFERENTIAL 
STRAIN PRODUCED ON 4130 CAST STEEL CONTAINMENT RINGS BY 
SINGLE FRAGMENT IMPACT 
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FIG. 1 19 PREDICTED MAXIMUM CIRCUMFERENTIAL STRAIN FOR SINGLE FRAGMENT ATTACK 
AS A FUNCTION OF RING THICKNESS FOR FIXED RING AXIAL LENGTHS 
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k N - see Eqs. 4.1a and/or 4.1b 
- see Eq. 4.2 

(d) Idealized Elastically— Supported Deflector Model Selected for Analysis 



(e) Hinged-Fixed/Free Idealized Deflector Model 

FIG. 24 CONCLUDED 
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FIG. 26 PREDICTED MAXIMUM CIRCUMFERENTIAL STRAIN AS A FUNCTION OF DEFLECTOR RING THICKNESS 
(h/x RATIO) FOR VARIOUS AXIAL LENGTHS 
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FIG. 27 PREDICTED VARIATION IN MAXIMUM CIRCUMFERENTIAL STRAIN AS A FUNCTION OF DEFLECTOR 
RING WEIGHT <wi)/(KE) Q RATIO) FOR VARIOUS AXIAL LENGTHS 
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APPENDIX A 


USER’S GUIDE TO CIVM-JET-4A 

A. 1 General Description of the Program 

A . 1 . 1 Introduction 

The CIVM-JET-4A computer program is an addition to the series of com- 
puter programs which are intended to be made available to the aircraft indus- 
try for possible use in analyzing structural response problems such as con- 
tainment/deflection rings intended to cope with engine rotor-burst fragments. 

The CIVM-JET-4A program written in FORTRAN IV permits one to predict 
the fragment collision- induced large, two-dimensional, elastic-plastic tran- 
sient, Kirchoff-type responses of a complete or partial single-layer, vari- 
able-thickness ring with various supports, restraints, and/or initially- 
prescribed displacements.* 

The geometric shapes of the structural rings can be simple circular or 
arbitrarily curved with variable thickness along the circumferential direction. 
Strain hardening and strain-rate sensitive material behavior are taken into 
account, as well as the presence of fragment/ring surface friction. 

The CIVM-JET-4A program predicts the collision- induced rigid body 
velocity and position changes of the attacking fragment. 

The CIVM-JET-4A program which combines the CIVM scheme with a convenient 
but modified version of the JET 3C code of Ref. 24 embodies the spatial finite 
element and temporal finite difference analysis features. The relative ease and 
versatility with which the spatial finite element technique can be applied to a 
structure with complicated boundary conditions, geometric shape, and material 
properties makes this method of analysis well suited for use 'in the present 
application. The pertinent analytic development and the solution method upon 
which CIVM- JET- 4A is based are presented in Ref. 14. The reader is invited to 
consult Ref. 14 for a very detailed description of this information. The 

* 

See Figs. A.l through A. 4. 
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CIVM-JET-4A computer program can analyze the collision induced ring responses 
and rigid-body fragment motions of: 

(a) Collisions involving a maximum of six fragments, each 
possessing different mass, mass moment-of- inertia, 

velocity- component, radius, and r parameters. 

CG 

(b) Collisions involving the presence of fragment-ring 
surface friction. 

(c) Structural rings, complete or partial, whose 
geometric shape can be circular or arbitrarily 
curved, with variable thickness. 

(d) A structural ring, with various support conditions, 
subjected to distributed elastic restraints (Fig. A. 3c). 

A. 1.2 Containment/Deflector Ring Geometry, Supports , 

Elastic Restraints, and Material Properties 

In the present analysis the transient structural responses of the 
ring are assumed to consist of planar (two-dimensional) deformations. 

Also the Bernoulli-Euler (Kirchhoff) hypothesis is employed; that is, trans- 
verse shear deformation is excluded. In the structural finite element context, 
such problems are termed "one-dimensional". 

The geometric shapes of the ring that can be treated are divided for 
convenience into the following four groups as shown schematically in Fig. A.l: 

(1) Circular partial ring with uniform thickness. 

(2) Circular complete ring’ with uniform thickness. 

(3) Arbitrarily curved complete ring with variable 
thickness. 

(4) Arbitrarily curved partial ring with variable 
thickness. 

For each of these configurations, the cross sections of the ring are assumed ' 
to be rectangular in shape. ’ 

In the spatial finite-element analysis, the ring is 'represented mathe- 
matically by an assemblage of discrete (or finite) -elements compatibly joined 
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at the nodal stations. The geometry and nomenclature of an arbitrarily curved 
ring element is shown in Fig. A. 2. For application to arbitrarily-curved, 
variable- thickness ring structures, the finite elements are described by 
reading in the global Y and Z coordinates, the local-coordinate slope 4>, and 
the thickness of the ring at each node. The displacements within each element 
are determined from the displacement values at these nodes through the means 
of appropriate interpolation functions. The reader interested in a detailed 
derivation of this assumed-displacement method is referred to Ref. 14 for an 
in-depth discussion. 

As for the support conditions of the structure, the CIVM-JET-4A program 
includes three types of prescribed nodal displacement conditions (see Fig. A. 3a) 


(1) 

Symmetry* 

(v = = 0 ) 

(2) 

Ideal ly-Clamped* 

(v = w = i|) = 0) 

(3) 

Smoothly-Hinged/Fixed 

(v = w = 0 ) 


and two types of elastic restraints (see Fig. A. 3b): 

(a) Point elastic restraints (elastic restoring spring) 
at given locations. (3 directions: normal, tangential, 
and rotational) , 

(b) Distributed elastically restrained (elastic foundation) 
over a given number of elements (3 directions; see 
Fig. A. 3c) . 

In the CIVM-JET-4A program, the mechanical sublayer model is used to 
describe the material properties of the ring. The input to the program takes 
the form of a series of stress-strain coordinates that define the straight line 
segments that the user has chosen to represent the stress-strain diagram of 
the material used. Various examples of different types of material behavior 
(elastic-perfectly-plastic (EL-PP) , elastic, strain-hardening strain- rate 
dependent (EL-SH-SR) , etc.) input are shown in Fig. A. 4. 

A. 1.3 Fragment Geometry and Initial Conditions 

As was shown schematically in Fig. 3, the possible fragment types 


Note that here ip has the meaning specified in Fig. 14. 
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'resulting from turbine engine failure are of various geometric configurations. 
A wide range of velocity components is also foreseen. The representation 
chosen for use in the CIVM-JET-4A program is the circular disk model that is 
shown in Fig. 16. The model-fragment mass, moment of inertia, and velocity 
components are specified to correspond with those of the actual fragment. The 
diameter of the idealized circular-disk fragment may be chosen, for example, 
so that the model covers the actual fragment outline out to a position midway 
between the fragment center of gravity and the tip of the attached blades for 
the disk sector shown. The user is free to employ any other plausible value 
that he chooses. 

The specification of the idealized attacking fragment, therefore, is 
accomplished through the input of the following parameters for each attacking 
fragment (maximum of six) : 

(1) Fragment mass 

(2) Fragment mass moment of inertia, about its 
center of gravity 

(3) Diameter of the idealized fragment 

(4) Initial position of fragment in the Y,z global 
axes system (center of gravity) 

(5) Initial fragment velocity components in the 
global Y and Z directions 

(6) Initial fragment rotational velocity 

(7) Coefficient of restitution chosen for the 
collision behavior of each fragment 

(8) Coefficient of ring surface friction chosen 
for each attacking fragment. 

A. 1.4 Solution Procedure 

The spatial finite-element approach is utilized in conjunction with 
the Principle of Virtual Work and D'Alembert’s Principle to obtain the equa- 
tions of motion of the structural ring subjected to a collision-induced 
velocity change at the nodal points. The ring structure studied is permitted 
to undergo large elastic-plastic transient deformations. In the interest of 
conciseness and convenience, the reader is invited to consult Ref. 14 for a 
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detailed derivation of this method that results in the following modified form 
of the equations of motion: 


- [H%*} • {f*}- [k /] {<£*} 


(A.l) 


where : 


tM*] 

{q*},{q*} 

{P*} 

[K*3 

[H*] {q*} 
(F*> 

[k s *3 


the mass matrix of the entire structure 
the global generalized displacements and 
accelerations 

[K*] {q*} and also some plastic behavior 
contributions 

the usual stiffness matrix of the entire 
structure 

generalized loads resulting from large 
deflections and plastic strains 
the prescribed externally-applied gen- 
eralized loading acting on the structure 
the effective stiffness matrix supplied 
by the presence of the elastic restraints. 


The displacement and acceleration vectors in the above equation represent 
the quantities obtained from the impact-corrected nodal velocities of the 
structure . 


As has been shown in Section 2, the resulting equations of motion are 
solved through the use of the central difference temporal operator with a time- 
step value that must be chosen to meet both stability and convergence criteria; 
this matter is discussed later in conjunction with the input- list. In the fol- 
lowing paragraph the general solution method used is reviewed briefly. 


First, information is .provided to define the geometry of the ring in- 
cluding its prescribed displacement conditions and elastic restraints. In 
addition, the required material property and attacking-fragment parameters are 
specified. It should be noted that the Gaussian quadrature method is used in 
the present analysis to evaluate the element-property matrices — this requires 
that the stresses and strains be evaluated at a selected number of Gaussian 
stations over the "spanwise" and depthwise region of each finite element; three 
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spanwise and four depthwise Gaussian stations are used in the CIVM-JET-4A pro- 
gram. The mass and stiffness matrices for the entire structure are assembled 
from these individual element matrices. 

Starting from a set of given initial conditions at time t , the collision 

o 

inspection and correction procedure is begun. If a collision has occurred, the 
corrected values of the fragment velocities are used to compute the position 
change of the fragment during the given time interval. The ring responses are 
evaluated for the impact-induced displacement changes in the following manner. 
The strain increment developed during the particular time interval is evaluated 
at each spanwise and depthwise Gaussian station for each element. From a know- 
ledge of the prescribed initial stresses and the strain increments, one can de- 
termine the stress increments, the stresses and/or the plastic strains and 
plastic strain increments through the use of the pertinent elastic-plastic 
stress-strain relations including the plastic yield condition and the flow rule. 
Next, the equivalent generalized load vector due to large deformations and 
plastic strains may be calculated. The resulting system of linear equations 
is solved for the unknown increments of generalized displacement at each nodal 
station . 


A. 2 Description of Programs and Subroutines 


A. 2.1 Program Contents 


The main CIVM-JET-4A program and the name of each subroutine are listed 
in the following with a brief description of the functions of each: 


MAIN Reads the ring geometry, material property data, the structural 
discretization information, and/or the prescribed displacement 
conditions and elastic restraints, the fragment geometry parameters 
and the fragment initial-velocity components. It computes the quan- 
tities that are constant throughout the program and initializes most 
of the variables used in the subroutines. It controls the logical 
flow of information supplied by the various subroutines and the 
overall time cycle. 


ASSEF This subroutine assembles the generalized nodal load vectors 
(due to externally applied forces and/or large-deflection 
elastic-plastic effects) of each individual element into a 
generalized nodal load vector for the structure as a whole. 
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ASSEM 


This subroutine updates the effective stiffness matrix [K *] 

s 

supplied by the presence of the elastic restraints as the 

element effective stiffness matrices are generated. The 

components of the assembled effective stiffness matrix 

[K *] which is. a symmetric matrix are stored in linear- 
s 

array form; only the lower triangular part of [K *] need 

s 

be and is stored (row-wise) , starting with the first non- 
zero element in the row and ending with the diagonal term. 

DINXT This subroutine initializes all ring response calculation 
vectors. Advances each of N fragments to its position at 
time TPRIM. (Time before which no ring impact is possible.) 

EI.MPP This subroutine evaluates the transformation matrices be- 
tween the strain at each spanwise checking station 
(Gaussian) and the generalized nodal displacements for 
each discrete element. 

ENERGY Performs the energy accounting procedure for the ring- 

fragments system. Calculates the current fragment kinetic 
energy (for each fragment) , ring kinetic energy, ring elastic 
energy, ring plastic work, and energy stored in the elastic 
restraints. Use of this subroutine is optional; it may be 
employed by following the procedure outlined in the input 
description section. For those cases where there is no 
need of performing the energy accounting; be sure to replace 
this subroutine by the dummy subroutine of the same name. (See 

listing of the CIVM-JET-4A program for both of these subroutines.) 

FICOL Finds the corresponding location of an element in the linear- 

array expression to a location in a two-dimensional array ex- 
pression. of the [K*] matrix. 
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IDENT 


IMPACT 


MINV 

OMULT 

PRINT 

QREM 

STRESS 


The IDENT subroutine is used at the beginning of the run to 
print out the values of certain input parameters, such as the 
ring structural discretization, geometry, and material proper- 
ties; the fragment geometry and initial velocity conditions; 

.and prescribed ring displacement and elastic restraint con- 
ditions . 

This subroutine carries out the search for impact occurrence 
involving one of N fragments on each element of the ring for all 
fragments considered. When it is determined that a fragment- 
ring collision has taken place, IMPACT calculates and applies 
the appropriate correction factors to the velocities of the 
fragment and the nodal points of the element impacted. 

Performs the matrix inversion; a standard Gauss-Jordan 
technique is used. 

Computes various linear arrays (in which a two-dimensional 
array is stored) and vector products. A. vector results. 

The PRINT subroutine computes the strain on the inner 
and outer surface of each element. It also controls the 
program output and format. 

Evaluates the effective stiffness matrix [K*] supplied 

s 

by the elastic foundation or restoring springs, and then 
imposes the prescribed displacement conditions accordingly. 

This subroutine evaluates the generalized load vectors, 

({p*} + [H*] {q*}> of Eq. A.l arising from the presence of 
large deflections and elastic-plastic strains . First the 
stresses and/or plastic strains are determined at each 
quadrature station, which involves the use 'of the strain- 
displacement relation and the stress-strain relations. 

The strain-hardening and strain-sensitivity effects are taken 
into consideration. Next, the appropriate Gaussian integra- 
tion scheme is used to form the element generalized nodal 
load for each element, and finally, an assembled generalized 
nodal load vector is calculated. 
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A. 2. 2 Partial List of Variable Names' 


A (I , J) 

AA(I,M,N) 

AINT 

AL(I) 

ANG(I) 

APD 

APDEN 

APN 

APT ‘ 

ASFL(I,J,K, 

AWG(I) ' 
AXG(I) 

B 


A, an 8x8 matrix, defines the transformation between the 
element generalized nodal displacements {q} and the par- 
ameters {3} in the assumed displacement field of each 
element. It is destroyed in computation and is replaced 
by its inverse A. • 

Equals A it defines the transformation between the • 
element generalized nodal displacements {q} and the 
parameters .{j3}in the assumed displacement field of 
the Ith element. 

Pre-impact approach velocity of the fragment -impacted 
ring element system normal to the ring 1 element. 

Element arc length of the Ith element. • . 

The slope which is the angle between the tangent 
vector and the +Y axis at the Ith node. 

Work done on' the structure by the collision of the 
fragments during- a particular time step. 

Total work done on the structure by the' collision 
of the fragments. 

Fragment induced impulse normal to the impacted ring 
element surface. 

Fragment induced impulse tangential to the impacted 
ring element surface. 

L) Stress and/or plastic strain weighting factor on the 
Lth sublayer in the Kth depthwise Gaussian point at 
the Jth spanwise Gaussian station of the Ith element. 

• Input vectors with dimension NOGA; contain’. Gaussian 
quadrature weights W. and constants x. 

j = Y 

0 . X 

employed in the spanwise integration of each element. 
Width of ring. 
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B1 



BE1(J,I,K) 


BEP(IR,J,I,K) 


BETA 


BNG(X) 



CINET 

CINETF(I) 

CINEV(K) 



Fragment- impacted ring element system geometrical 
constants; {See Egs. 2.14, 2.15, 2.16) used in 
subroutine IMPACT. 

The transformation matrix that relates the strain 
at the Jth spanwise Gaussian station to the 
parameter {0} in the assumed displacement field of 
each element. 

Transformation matrix which relates. the- strain at 
the Jth spanwise Gaussian station to the generalized 
nodal displacements of the IRth element - 
Ratio of distance from point of impart to I+lth node; 
to total straight line element length converted in 
subroutine .IMPACT . 

Orientation angle of the Ith node of the ring measured 
clockwise from the positive 2 axis; used in subroutine 
IMPACT. 

Coefficients in the quadratic- representation of the 
meridional slope <J>; used in subroutine ASSEM. 

Equals 1/P if the material is strain-rate dependent. 
Equals 1/ (DSxDELTAT) 

Current ring elastic energy. 

Equals [D^){q}, 1=1, 2, 3 at the spanwise Jth 
Gaussian station of each element. 

Kinetic energy of the structure at the current 
time instant. 

The kinetic energy of the Ith fragment. at the 
current time instant. 

A work vector used in the calculation of the 
•kinetic energy of the structure. 

The fractional distance from the centroid of the 
element to the Ith and I+lth node, respectively. 
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CMU 

CMW 


} 


COIY(I) 

COIZ(I) 


COPY (I) 
COPZ(I) 

J 

DALFA ( J) 


DELD(-I). 


DELTAT 

DENS 

DET 

DFCGU (J) 


DFCGW(J) 


DISP(I) 

DS 

ELAST 
ELFP (I) 


The Y and Z components of- the distance between 
the centroid of the fragment and the position 
of the I+lth.node. 

The initial position of nodal' point I measured 
with respect to the Y and Z global coordinate 
axes. 

The current position of the Ith node with respect 
-to the global Y and Z coordinate axes. 
Impact-corrected displacement increment applied to 
the angular position of fragment J at the current 
time instant. 

Vector of dimension .NI contains the impact-corrected 
generalized nodal' displacement increments during the 
current time step . - 

Time step increment size- selected by the user and 

input directly into the program. 

- _ 2 4 

Mass density of the ring material (lb-sec /in ) 

Resultant determinant of matrix A 

Impact-corrected displacement increment applied 

to the position of fragment. J in the global Y 

direction. 

Impact-corrected displacement increment applied 
to the position -of fragment J in the global 
Z direction. 

Vector which, contains .the- generalized nodal 
displacements' at the current time instant. 

Material -constant used in the strain-rate 
sensitivity formula. - 

Total elastic energy present in the structure 
during the current time instant. 

Element generalized nodal load vector due to 
the presence of large deflections and plastic 
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ELR(I,J) 


ELEP(I,J) 
EPS (L) 


EXANG 

FACT In" 
FACT2N 


factit) 

FACT2T 


/ 


FACTFN 


FACTFT 


FACTFO 


FACTNN 


strains; it equals {p} + [h] {q} (See Ref. 14) 

A work matrix of dimension 8x8 for the evaluation 
of the element effective stiffness matrix supplied 
by elastic restraints. It equals: 

^[n] t [c] MA. 

Element effective stiffness matrix supplied by 
elastic restraints. 

Input quantities of abscissa of the uniaxial 
stress-strain curve for the Lth mechanical sub- 
layer material model (in/in) . 

The subtended angle of the ring. For. complete 
rings EXANG = 360 degrees. 

Impact- induced correction factor applied to the 
normal- to-impact displacement increment at a given 
time step; applied to the IBIG and IPLXJS nodes of 
the impacted ring segment, respectively. 

Impact- induced correction factor applied to the 
tangential- to- impact displacement increment at 
a given time step; applied to the IBIG and IPLUS 
nodes of the impacted ring segment, respectively. 
Impact-induced correction factor applied to the 
normal-to-impact displacement increment of the 
attacking fragment at the current time step; 
applied to the fragment JBIG. 

Impact-induced correction factor applied to the 
tangential-to-impact displacement increment of the. 
attacking fragment at the current time step; 
applied to the fragment JBIG. 

Impact- induced correction factor applied to the 
rotational displacement increment of the attacking 
fragment at the current time step; applied to the 
fragment JBIG. 

- Impact- induced correction factor applied to the normal- 
to-impact displacement increment of node NNBIG at the 
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FACTNT 


FARE 

FCUR 


FAU (J)j 
FAW (J) J 
FLVA(I) 


GFL (IR,I , J) 
GZETA (IR/ I / J) 
H(I) 

HHALF (X) 
HNL(I) 


HT (I) 
IBIG 


ICOL(I) 


current time instant. 

Impact-induced correction factor applied to the tan- 
gential-to-impact displacement increment of node 
NNBIG at the 'current time instant. 

Midplane axial strain and curvature increment, 
respectively, at the selected spanwise Gaussian 
station of each element. 

Location of centroid of fragment J at the present 
time cycle in the global Y,Z plane. 

Assembled generalized load vector corresponding 
to large deflections and plastic strain presence; 

'if equals {P*} + [H*] {q*} 

Stress .and/or plastic- strain, weighting factor on 
the Jth depthwise Gaussian point at the Ith span- 
wise Gaussian station of the IRth' element. 

Distance from the centroidal axis of the Jth 
depthwise Gaussian point at the Ith spanwise 
Gaussian station of the IRth- element. 

Thickness of the ring at the Ith node. 

Half the thickness, of the ring at the midspan 
of element I 

Work vector of dimension 8, required for the 
evaluation of the element generalized nodal 
load vector due to large deflections and elastic- 
plastic strains. 

Thickness o'f ring segment I at the point of impact, 
'the . subroutine IMPACT, IBIG represents the . ' 
element number on which impact occurs; ele- 
ment bounded by nodes IBIG and IPLUS=IBIG+1. 

In the MAIN PROGRAM,’ IBIG is the element', 
number whose midspan computed, tensile strain 
exhibits the largest value during the run. 

Vector, of length NI, contains the column 
number of the first nonzero ‘entry in the 
Ith row of the structural mass and/or stiff- 
ness matrix. 
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IDET 

IK 

INUM{I) 


ISIZE 


IT • 
JBIG 


KROW(I) 



NBC (I) 
NCOND 

NFL 


Work vector used in subroutine FAC 

Number of discrete elements into which the whole 

structure is discretized for analysis. 

Vector of dimension NI contains the corresponding 
position- in the linear array of the first nonzero 
entry in the Ith row of the structural mass and/or 
stiffness matrix. 

Number of locations necessary for the storage of 
the structural mass and/or stiffness matrix in 
the linear array form. 

Current time step cycle number. Measured as time 
cycle after the specified TPRIM value. 

Number of fragment involved in ring element 
impact. 

The row number of the Ith irregular row in the 
structural mass and/or stiffness matrix. 

Work vector of length 8 used by subroutine MINV. 
Cycle at which regular printout starts. 

Printout will occur every M2 cycles. 

Time step (cycle) at which run is to stop. 

Work vector of length 8 used by subroutine MINV. 
Number for the data input tape unit, the printed 
output tape unit, and the punched output tape 
unit, respectively. These names must be assigned 
numbers corresponding to the user's computing 
center requirements. 

The prescribed displacement type number 
The number of nodes at which displacement con- 
ditions are to be specified. 

The number of depthwise Gaussian points through 
the thickness for the numerical evaluations of 
stress resultants (axial forces and bending 
moments) at each spanwise Gaussian station. 
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NI 


NIRREG 

NNBIG 

NODEB(I) 

NOGA 


NORP 

NORU 


NQR 


NREL(X) 

NRST(I) 

NREU(I) 


NSFL 


P 

PAX (I, J) 


Total number of degrees of freedom of structure 
(unrestrained) ; it equals the number of nodes times 
4. Also, it is the number of rows in the assembled 
stiffness matrix. 

Number of irregular rows in the assembled stiffness 
matrix. 

Node number at which nodal impact occurs. 

The node at which the prescribed displacements 
are specified. 

The number of Gaussian stations to be employed 
for the spanwise integration of the element proper- 
ties over each element. 

The number of point elastic restraints (elastic 
restoring springs) and the number of locally 
distributed elastic restraints, respectively, 
which are to be specified over the structure. 

Number which, if greater than zero, indicates 
that there are elastic restraints specified 
over the structure. 

The element number at which the Ith point 
elastic restraint is to be specified. 

The first element and the number of elements, 
respectively, over which the Ith uniformly 
distributed elastic foundation is to be 
specified. 

Equals the number of mechanical sublayers in the 
strain hardening material model; also is the 
number of coordinate pairs defining the piecewise 
linear stress-strain curve. 

Material constant used in the strain-rate sensi- 
tivity formula. 

Projection of the distance between the centroid 
location of' the Jth fragment and the 1+1 node 
along the straight- line-beam-representation axis 
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PD(I,J) 

PDBIG 


PIE 

PLAST 


PM(lf[ 

pn(I) 


J 


PN{I,J) 


PND(I,J) 

PNDBIG 


REX (I) 


RH 


KL{I)- 


RMASS (I) 
RMX(I) 


So-called penetration distance resulting from the 
impact of the Jth fragment with the Ith element 
The largest penetration distance encountered' during 
a given time cycle. Determines the order in which 
impacts generated .corrections, are applied in. cases, 
involving more than one impact occurrence during a 
particular time cycle. 

Represents IT = 3.14159265 

Total plastic work done on the structure up to the 
present time step (mechanical work dissipated by 
plastic flow) 

Work vectors of dimension 8, required for the 
evaluation of the element generalized nodal load 
vector due to large deflections and elastic- 
plastic strains used in subroutine STRESS. 
Perpendicular distance from the axis of the. Ith 
straight- line-beam element representation to the 
centroid of the fragment J at a point on the 
axis equal to PAX (I , J) from node 1+1, used in sub- 
routine IMPACT. 

Penetration distance calculated for the impact 
case involving the Ith node and the Jth fragment. 
The largest penetration distance encountered 
during a given time cycle for cases involving 
nodal impact conditions. 

The length coordinate along the .cnetroidal axis 
from the. node NREL(I) at which the Ith elastic 
restoring spring is specified. 

Thickness at a specified spanwise ring Gaussian 
-station. 

Straight line length of ring element I used in 
the collision inspection and correction procedure. 
Lumped mass and moment of inertia values, 
respectively ; at ring structure node I 
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RSIN(I) 

RCOS(I) 



SINT 
SNO (I) 

SNS (I , J,K,L) 


SNY 

SOL (I)' 
SPDEN 

SPRIN(.I) 

TIME 


Sine and 'cosine, respectively, of the angle that . 
element I makes with’ the global Y axis. Used in 
transformation from impact to local and local to 
global coordinate. 

The tangential and radial translational re- 
storing spring constants, respectively. 

The rotational restoring spring constant 
Tangential and radial translational elastic founda- 
tion stiffness constants, respectively. 

Rotational elastic stiffness constants. 

Input quantities for the ordinates of the uniaxial 

static stress-strain curve for the Lth mechanical 

2 

sublayer material model (Ib/in ) . 

Pre-impact relative sliding velocity of the fragment 
tangential to the impacted ring segment. 

Uniaxial static yield stress of the lth mechanical 
sublayer material model. 

Axial stress on the Lth mechanical sublayer at the 
Kth depthwise Gaussian point at the Jth spanwise 
Gaussian station of the lth element. 

Uniaxial yield stress, of the mechanical sublayer 
taking strain rate sensitivity into account. 

Contains the solution vector of a series of matrix 
equations . . ’ . 

Total energy stored in the -elastic restoring 
springs and/or the elastic foundations at the 
current time instant. 

The assembled effective stiffness matrix supplied 
by elastic restraints (stored, in linear-array form) . 
Current time after TPRIM=IT*DELTAT 
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TWG(I) 

TXG(I) 


UNK(J) 

VFA 

VFN 

VFT 

VNIBIG 

VNlPLS 

VTIBIG 

VTIPLS 

YOUNG 


:} 


Y(I) 
Z(I) 
YZET^ 
ZZET j 


Input vectors with dimension NFL; contain Gaussian 
quadrature weights and constants of 

J dx - CX^W X 

-i 

used in the numerical integration of stresses and/or 
plastic strains through the thickness. 

Coefficient of friction between the Jth fragment 
and the surface of the ring. 

Fragment angular velocity prior to impact. 

Fragment velocity normal to ring surface prior 
to impact. 

Fragment velocity tangential to ring surface 
prior to impact. 

Velocity of node IBIG normal to ring surface prior 
to impact. 

Velocity of node IPLUS normal to ring surface 
prior to impact. 

Velocity of node IBIG tangential to ring surface 
prior to impact.’ 

Velocity of node IPLUS tangential to ring surface 
prior to impact. 

Elastic (Young’s) modulus (the slope of the first 

segment in the piecewise linear representation of 

< 

the uniaxial stress-strain curve) . 

Initial Y and Z coordinates of node I in the 
global coordinate system. 

The Y and Z coordinate, respectively, at a given 
spanwise quadrature station. 
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A. 3 Input Information and Procedures 

The information required to punch *a set of data cards for a run of the 
CIVM-JET-4A program is presented in a step-by-step manner in this section. 

The variables to be punched on the nth data card are outlined, and in a 
box to the right is the format to be used for that card; the definition of 
and some restrictions for each variable are given below. This is done for 
each card in turn until all are described. 

Format 

Card 1 

B, DENS, EXANG, • ’ 3D15.6 

where 

B The width of the ring (inches) 

2 4 

DENS The mass density of the ring material (lb-sec /in ) 

EXANG The total subtended angle of the ring (degrees) 

(For a complete ring specify EXANG - 360 degrees) 

Card 2 

IK, NOGA, NFL, NSFL, MM, Ml, M2, NF, 815 

where 

IK The number of discrete elements used to model the whole 
ring structure. This number cannot exceed 50 (although 
this limitation may be relaxed by a changing of the ap- 
propriate dimension statements of the program) . 

NOGA The number of spanwise Gaussian stations to be used for 
the spanwi'se numerical integration over each element in 
evaluating the element properties {p} and [h] ; NOGA = 3 
is used in CTVM-JET-4A. 

NFL The number of depthwise Gaussian points to be used for 
the numerical integration through the thickness of the 
element. Used to calculate the stress resultants at 
each spanwise Gaussian station. NFL = 4 is used in 
CIVM-JET-4A. 

NSFL The number of mechanical sublayers in the strain- 
hardening model of the material. Equals the number 
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Format 


MM 

Ml 

M2 

NF 


of coordinate pairs defining the polygonal approximation 
of the stress-strain curve of the material. This number 
must not exceed 5. 

Corresponds to the cycle number at which the run is to 
stop . 

The cycle number at which the regular printout is to 
begin. Ml must not equal 0. Cycles are numbered 
after TP RIM. 

The number of cycles between regular printout (i.e. r 
print every M2 cycles) . 

The number of fragments considered to be impacting the 
ring. This number is not to exceed 6. 


Card 2a 

Y(l), 2(1), ANG(l), H (1) 4D15.6 

Y(l)"7 Initial Y and Z coordinates, respectively, of the 

Z(1)_J the first node (inches) 

ANG (1) The slope (degrees) which is the angle between the tangent 
vector and the +Y axis at the first node. An angle .from 
the +Y axis to the tangent vector in a counter clockwise 
direction is defined as a positive ANG (1) . 

H (1) The thickness at the first node (inches) 


Additional cards 2aa, 2ab, . . . are punched in exactly the same format 
as Card 2a until the total number of 2a cards equals IK+1 for a partial 
ring and equals IK for a complete (360 degree) ring, where IK is the value 
appearing on Card 2. Also, the following conditions must be satisfied by 
ANG (I) : (a) - 180° < ANG(I) < 180°, and (b) jANG(I+l) - ANG(I)[ < 15°. 

Card 3 

DELTAT, CRITS, DS, P 4D15.6 

where 

DELTAT The time step At, to be employed for the timewise finite- 
difference operator. This value must meet all stability 
and convergence criteria. 
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Format 


Value of the "critical material fracture strain" 

* 

chosen by the user. Program will indicate the 
time cycle at which this value is first ex- 
ceeded. ' 

The value of the constants D, and p, respectively-, 
used in the strain-rate sensitivity formula 

^yjj - ( I l^") 

where D has units sec , 0 ^ is the static yield 
stress of the £th mechanical sublayer and a is 
the corresponding rate-dependent yield, stress. If 
the material does not exhibit strain-rate sensitive 
behavior, set DS = 0 and leave P blank. 

• 'V, 

Generally speaking, the value of At t .8 (2/co ) does not produce 

max 

convergent transient ring response results for the fragment/ring structure 
impact situation. It is recommended', therefore, that an initial value chosen 
for this input parameter be tested for convergence by repeating the same calcu- 
lation only with an appropriately smaller DELTAT value and evaluating the 
effect upon the ring response. If the .change in ring response is negligible, 
the initial value may be used with confidence that it is a converged result. 

If large discrepancies exist, however, subsequent calculations must be per- 
formed to determine the most economical time step that still maintains .con- 
vergent behavior. . 

Card 4 

EPS (1) , SIG(l)', EPS (2), SIG(2) ' 4D15.6 

where 

EPS (1)1 Make up the first coordinate pair of strain and stress (e,G ) 

SIG(1)J coordinates which are used .to define the piecewise-linear 

approximation of the uniaxial static stress-strain curve. The 

stress-strain curve for which these values and those values 

following are obtained .must be upwardly convex with- nonnega- 

2 

tive slope. (EPS = in/in, SIG = lb/in ) . 


CRITS 


DS 

P 
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Format 

EPS(2H Make 'up the second coordinate pair of strain 

SIG(2) ( and .stress coordinates. 

Additional Cards 4a arid 4b are punched in exactly the- same format 
as -Card A -until the -number -of coordinate- -pai-rs -equals the-yaiue -NSFL 
punched on Card 2. The total number of strain, stress coordinate pairs 
specified must not exceed 5. 

Card 5 

FH(I), FCG (I) ,, FCGX(I), PMASS (X) , FMOI (I) . 5D15.6 

.Card 6 - 

UNK(X) .D15.6 

Card 7 , 

DDOT-(I) , WDOT(I) , ADOT{I), IPRIM(I), CR(I) .5D15.6 

where 

FH(I) The diameter of the circular -disk model of 

fragment ,(I) (inches).. 

FCG(X) The initial Z coordinate of the centroid of 

fragment (I) .measured from the global Y axis. 

The positive direction represents an initial 
location above the global Y .axis (inches).. 

FCGX(I) 'The initial Y coordinate of the centroid of 

fragment (X) measured from the global Z .axis. 

The positive direction represents an initial 
.location to the right of the global ;Z -axis 
.(inches) . 

2 

FMASS(I) The .mass of fragment (I)' (lb-sec /in). 

,FMOI (I,) .The mass moment of inertia, of fragment (I) 

'2 

(lb-sec -in) 

•UNK(I) Coefficient of friction between fragment ,(I) 

and the ring surface. For analyses .in which the 
effects of an "infinitely rough" ring' surface .are 
to be investigated; the value to be input for this 
variable is UNK(I) = 10.0. (0.100000 D+02) 

UDOT(X) The velocity component of fragment (I) parallel 

to the global Y axis before initial, impact (in/sec) . 
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Format 


WDOT(I) 

ADOT(I) 

TPRIM(I) 


CR(I) 

' Cards ! 
is the number 

Card 8 

AXG(l) , 

where 

AXG.(I) 


Positive UDOT(I) represents a fragment traveling to 
the right. 

The velocity component of fragment (X) parallel to 
the global Z.axis before initial impact. The posi- 
tive direction denotes a fragment traveling. in an 
upwards (+Z) direction (in/sec.). 

The initial angular velocity of fragment (I) (rad/ 
sec.). Positive sign denotes counter clockwise 
rotation. 

A time before which there -is no possibility of fragment I 
impacting anywhere on the ring. The checking process 
begins at this time instant. It may be used to decrease 
the number of time cycles considered by the given run. 

For multiple fragments, all TPRIM values must coincide 
(sec) . . 

Coefficient of restitution between the fragment (I) 
and the impacted ring surface. 

6, and 7 must be repeatedin that order, NF times, where NF 
of fragments involved in. the present analysis. 


AXG(2) ,' AXG (3) 


3F15.10 


Vector of .dimension NOGA contains Gaussian' quadrature 
constants x^ for the numerical integration of 

f - 51 4 <X£) Wi. 

A 

If NOGA = 3 for example, then the following data 
appear on this card. 

0.1127016654 0.5 0.8872983346 
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Format 


Card 9 - 

AWG(l), AWG{2), AWG<3) 3F15.10 

where 

AWG.(I'). Sector of dimension NOGA contains- Gaussian- -quadra- 
ture weights W for the numerical integration of 

• J -fix) - X £(*£) Wi • 

o , 

If NOGA = 3, the following data appear on Card 6 
0.2777777-778 0.4444444444 0.2777777778 

Card 10 

. TXG{1), TXG(2) , TXG{3) , TXG(4) ' 4F15.10 

Card 11 * ' 

TWG(l), TWG (2) , TWG{3)-, TWG(4) • - 4F15.10 

where 

TXG (I)~) Vectors of dimension NFL contain Gaussian quadrature 
TWG (I) J constants x^ and weights w^, respectively, for the 
numerical- -integration of:' 

i ’ - 

f -f (x)c£x =■ (Xl)\V£ 

J^\ ~ A, . 

If NFL = 4- for example , then the following data appear 
on Card 10: 


-0.8611363115 -0.3399810435 0.3399810435 

0.8611363115 ' - 

and the data 


0.3478548451 0.6521451548 0.6521451548 

0.3478548451 

appear on Card 11. 
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Format 


Card 12 

NBCOND 15 

where 

NBCOND The total’ number of prescribed nodal displacement 
conditions to be specified on the structure. This 
number must not exceed 4- If NBCOND^O punch Cards 
12a, ... 

Card 12a 

NBC (I), NODEB(I) ' 215 

where 

NBC (I) 7 The identification number and the node number, 

NODEB(I) J respectively, for which the Ith displacement 
condition is to be imposed. 

The appropriate form of the data group NBC (I) , NODEB(I) should be re- 
peated- NBCOND times. If NBCOND = 0, there are no prescribed displacement con- 
ditions to be imposed on the structure; then omit NBC (I) and NODEB(I) on 
Card 12a. 

The prescribed displacement identification number can be equal to 1, - 
2, or 3, depending on the type of the prescribed displacement condition. Its 
description follows: 

NBC (I) =1 Symmetry displacement condition. Setting the degrees 

of freedom v and if) at the node NODEB (I) equal to zero. 

NBC (I) =2 Ideally-clamped condition. Setting v, w, and at 

node NODEB (I) to zero. 

NBC (I) =3 Smooth-hinged/fixed condition. Setting v and w at 

node NODEB (I) to zero. 

Card 13 

NQR, NORP, NORO 315 

where 
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Format 


NQR Indicator which if greater than 0 indicates that the 

structure is subject to elastic restraints (point 
and/or distributed) . 

NORP The number of point elastic restraints (elastic 

restoring springs) which are prescribed over 
the structure. This number must not exceed 4. 

NORO The number of local distributed elastic re- 

straints (elastic foundations) which are to be 
prescribed over the structure. This number must 
not exceed 4. 


If there are no prescribed elastic foundations on the structure, set 
NQR - 0 and leave NORP and NORU blank. 


Cards 13a and 13b are included only if ,NQR is greater than zero on 
Card 13. 

If NORP = 0 skip to Card 13b. 

Card 13a 

SCTP, SCTY, ' SCRP • 3D15.6 

Card 13aa 

NREL(l), REX (1) , NREL (2) , REX(2)) . . . NREL (4) , REX(4) 4(15, D15. 6) 


where 


SCTP 


SCTY 



The translational tangential restoring spring constant 
(lb/in) 

The translational radial restoring spring constant 
(lb/in) 

The torsional restoring spring constant 
The element number and the length coordinate, respec- 
tively, along the centroidal axis from node NREL (I) of 
the element at which the Ith point elastic restraint is 
specified. The positive direction of REX (I) is the 
clockwise direction from the midpoint of the element. 
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Format 


The data group NREL(I), REX(I) must be repeated NORP times. 

If NORU = 0 on Card 13 omit Card 13b and Card' 13c. Card 14 then 
follows immediately. 


Card 13b 

SCTU, SCRU, NRST(l), NEEU(l) , ... , NRST(4), NREU(4) - 2D15.6,8I5. 


where 

SCTU 


SCRU 
NRST (I)' 
NREU(I) 


Elastic foundation stiffness in translation, 

2 

tangential to the midsurface of the ring (Ib/in ) 

Elastic foundation stiffness in torsion (in-lb)/{rad-in) 
The first, element and the number of elements 
respectively, over which the Ith elastic founda- 
tion .is to be specified (the first elastic founda- 
tion is distributed to element NRST(l-) through 
and including element (NRST(l) + NREU(l)-l) 


Data group NRST (I) and NREU(I) are repeated NORU times. 
Card 13c 

SCTW, NRST (1) , NREU(l) , ... , NRST(4), NREU(4) 

where 


D15.6, 815 


SCTW 

Card 14 

ICONT 

where 

ICONT 


Elastic foundation stiffness in translation along the 

. 2 
line of the normal to the ring's surface .(lb/in ) . 


15 


Indicator which if greater than 0 indicates that this is a 
continuation mm. It should be noted that included in the 
output of each completed run is a set of continuation cards 
which contains all of the information that is necessary to 
continue the same run, if desired, to obtain further time- 
history information. Each completed continuation run also 
produces a continuation deck, so the process may be continued 

indefinitely as long as desired. 
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Format 


If the indicator ICONT is greater than zero, the continuation deck pro- 
duced from the output of the previous run follows immediately. The continuation 

deck contains the following information: 

Card 14a 415 

IT, IBIG, ISURF, MCRIT 

where 

IT The number of the time cycle at which the previous run had 

stopped, and is the beginning time cycle of the present 
continuation run. 

IBIG The element number whose midspan computed tensile strain 
exhibits the largest value during the previous run. 

ISURF Equals 1 means largest computed tensile strain occurs 
on the inner surface; equals 2 means on the outer 
surface. 

MCRIT A dummy variable which controls the strain checking process 
to check the location where the strain first exceeds a 
prescribed value. 

Card 14b 4D15.7 

TIME, BIG, BTIME 

where 

TIME The absolute time at which the previous run stopped, and 
is the beginning time of the present continuation run. 

BIG . The largest computed tensile strain during the previous run 

BTIME The time at which the largest computed tensile strain 
occurred during the previous run. 

Card 14bb 4D15.7 

DISP(I) 

DISP (I) The displacement of the Ith degree of freedom at time 
cycle IT. Repeat cards until all degree of freedom 
displacements are specified with 4 different values/card. 
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Format 


Card 14b c 

DELD(I) 4D15.7 

DELD(I) The displacement increment change of the-lth 
degree of freedom of the structure at time 
cycle IT. Repeat cards until all degrees of 
freedom are included, with 4 different values/ 
card. 

Card 14bd 

SNS (IR, J ,K,L) 4D15.7 

SNS'(IR, J,K,L) The axial stress on the Lth mechanical sub- 
layer at the Kth depthwise Gaussian point at 
the Jth spanwise Gaussian station of the IRth 
element at time cycle IT . Repeat cards until . 
all values for the entire structure are in- 
cluded, with 4 different values/card. 

Card 14be 

FCGU(J), FCGW(J), AIFA(J), DFCGU (J) , DFCGW(J) , DALFA(J) 6D12.6 

FCGU ( J) The centroidal position of the Jth fragment in the 

Y direction at time cycle IT (inches) . 

FCGW (J) The centroidal position of the Jth fragment in the Z 
direction at time cycle IT (inches) . 

AIFA(J) The total angular displacement of the Jth fragment 
at time cycle IT (radians) . 

DFCGU (J) The displacement increment in the Y global 

direction of the Jth fragment at the time cycle IT 
(inches) . 

DFCGW (J) The displacement increment in the Z 

global direction of the Jth fragment at time cycle 
IT (inches) . 

DATFA(J) The angular displacement increment of the Jth 
fragment at time cycle IT (rad) . 
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A. 3.1 Energy Accounting Option 

To exercise the energy accounting option that is included in the 
CIVM-JET— 4A program, the procedure is as. follows; 

(1) Remove .the "dummy subroutine ENERGY front- the source deck. 

(2) Replace this dummy subroutine 'with the actual ENERGY 
subroutine that is used to perform the energy-accounting 
calculation. 

(3) No changes or additions to be input described above are 
needed. 

A. 3. 2 .^Ihput for Special Cases of the General 
Stress-Strain Relations 

In the following, the specific input 'data for three special cases of 
the general elastic, strain-hardening constitutive relation handled by the 
computer program are given. Only the relevant data are noted: 

1. Purely Elastic Case 

Set NSFL=1 on Card 2, and make EPS(l) and SIG(l) oh Card 
4 sufficiently high so that no plastic deformation occurs; 
for example, EPS(1)=1.0, SIG(1)=ES(1) where ES (1) . equals 
the elastic (Young's) modulus. 

2- Elastic, Per fectly-Rlastic Case 

Set NSFL=1 on Card 2 and make EPS ( 1) =SIG (1) /ES (1) on 
Card 4. 

3. Elastic, Linear Strain-Hardening Case 

Set NSFL=2 on Card 3 and set EPS (1)=SIG (1) /ES (1) -. Also 
EPS (2) and SIG(2) on Card 4 are taken sufficiently high 
in order to avoid plastic deformation in the second sub- 
flange. For example, EPS(2)=l-.0, andSIG(2) = (l.- - EPS(l)) x 
ES(2) -t SIG(l), where ES(2) is the slope of the segment 
in the plastic range. 
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A. 4 Description of the Output 


The printed output begins with a partial re-iteration of the input 
quantities specified for the ring structural geometry, displacement conditions, 
and material properties . The fragment-properties output include not only those 
specified by user input but also the calculated initial kinetic energy of each 
fragment. 

After the initial printout has been completed, the following information 
is printed at time cycle- Ml and at intervals of M2: 

j = [ IT ] T!ME = [TIMEJ 

1 V W PSI CHI COPY COPZ L- M STRAIN (IN) STRAIN (OUT) 

1 

2 
3 


FRAG N0.= 

[J] 


FCGU = 
[FCGU (J) ] 


FCGW = 
[FCGW(J) ] 


ALFA = 
[ALFA (J) ] 


IT 

TIME= 


1 = 


V= 

w= 


Cycle number 

Elapsed time corresponding to the end of 
cycle J (sec) - 

Node number in clockwise order. For a partial ring 
the total number of nodes is one more than the number 
of elements. For a complete ring, the number of 
nodes equals the total number of elements. 

The middle plane axial displacement at node I (in) ' 

The middle plane transverse displacement at node I (in) 
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PSI= The generalized nodal displacement 

ip = (9w/3n) ~ v/R at node I (rad) 
CHI= • The generalized nodal displacement 

X = (9v/3n) + w/R at node I (rad) 


COPY= 

COPZ= 

L— 

M= 

STRAIN (IN) = 
STRAIN (OUT) = 
J= 

FCGU ( J) = 

FCGW (J) = 

ALFA { J) = 


The current global Y coordinate of nodal 
point I (in) 

The current global z coordinate of nodal 
point I (in) 

Axial internal force resultant over the cross section 
at the midspan point of element I (lb) 

Internal bending moment of the cross section at the 
midspan point of element I (in- lb) 

Strain on the inner surface at the midspan point of 
element I 

Strain on the outer surface at the midspan point of 
element I 
Fragment number 

Global Y coordinate of the centroid of fragment J 
at the current time instant (in) 

Global Z coordinate of the centroid of fragment J 
at the current time instant (in) 

Angular rotation of fragment J to the current 
time instant (rad) . 


The detection of an impact between a fragment and a ring element during 
a given time cycle results' in the following printout at that cycle: 

IMPACT IT= [IT] ELEMENT NO.=[I] FRAGMENT NO-=[J] 

LOCATION ON ELEMENT= [PAX (I, J) ] PENETRATION DIST=[PD(J)] 


IT= 

1 = 

J= 

PAX(I,J)= 


Time cycle during which impact occurs 
Ring element involved in this particular collision 
Fragment involved in this particular collision 
Distance from node 1+1 of element I to point of 
impact for this particular collision. 
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PD (X,J)= "Penetration distance" calculated for this particular 

collision. 

For cases involving impact at a nodal point of the discretized struc- 
ture, the output is as follows: 

IMPACT IT= [IT] NODE NO.=[NNBIG] FRAG NO-=[N]’ PD= [PND (I , J) ] 

NNBIG= Node number at which impact occurs 

PND(I,J)= "Penetration distance" calculated for this 

particular, collision. 

For those analyses in which a check of the energy characteristics of 
the system is desired, the following information is output for each print time cycle 

CURRENT TIME CYCLE FRAGMENT ' KINETIC ENERGY 

[IT] [J] • [CINETF (J) ] 

WORK INPUT INTO RING TO TIME STEP [IT] = [RWORK] 

RING KINETIC ENERGY AT TIME STEP [IT] = [CINETO] 

RING ELASTIC ENERGY -TO TIME STEP [IT] = [CELAS] 

RING PLASTIC WORK TO TIME STEP' [IT] = [PLAST] 

ENERGY STORED IN ELASTIC RESTRAINTS = [SPDEN] 


Kinetic energy of fragment J at the current 
time instant 

Ring kinetic energy ' at current time instant* 
Total work done on the ring • s'tructure to the 
current time instant 

Total ring elastic energy to the current time 
instant. 


It should be noted that the rigid body part of the kinetic energy, which is 
used to accelerate the "rigid' body" mass of the structure, can be extracted 
and identified separately. However, for the present program dealing with 
rather general structural geometries and with various support/restraint con- 
ditions , it would be very unwieldy (but not impossible) to identify these 
separate kinetic energies; hence, the total kinetic energy is calculated and 
printed out. 


CINETF (J)= 

CINETO 

RWORK= 

CELAS= 
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PLAST= 


Total plastic work done on the ring to the current 
time instant.* 

SPDEN= Energy stored in the elastic restraints (if the 

presence of elastic restraints is specified) . 

' fit each printout cycle, a strain-checking process is carried out. 
Asterisks are printed to the right of the strain printout only for the cycle 
when the strain first exceeds the "critical" value. No further strain check- 
ing or action is taken by the program, however, and the computational process 
proceeds until the end of the run as if the material had not "failed". 

At the conclusion of each run, a statement "LARGEST COMPUTED STRAIN= 

. . . OCCURS AT THE INNER (or OUTER) SURFACE MIDSPAN OF ELEMENT ... AT TIME 
(SEC) = ..." is printed out. This statement gives the largest computed 
strain, and the time and the location at which it occurs during the transient 
respon se. It should be noted that the - strains are computed only at every 
printout cycle, and also only on the inner and outer surface at the midspan 
of each element. 

A. 5 Complete FORTRAN IV Listing of the CIVM-JET-4A Program 

The Cl VM— JET- 4A program consists of the following main program and 
14 subroutines: 

1. CIVM-JET-4A MAIN PROGRAM 

2. ASSEF 

3 . ASSEM 

4. DINIT 

5. ELMPP 

6. ENERGY 

The plastic work -done on the ring is estimated by subtracting the sum of the * 
elastic' and kinetic energies present in the ring. from the total input energy 
(due to the externally-applied load and the initiaily-imprted kinetic energy) ; 
i.e., RWORK=CINETO+CELAS+PLAST+SPDEN . It should be mentioned that the approxi- 
mate nature of this numerical calculation will sometimes yield' impossible re- 
sults such as negative values of plastic work or values greater than zero 
when the ring has not yet reached a plastic condition; thus, the value' of 
plastic work should be considered only approximate, and spurious results as 
noted above should be ignored. This term' -may also be considered to contain, 
in addition, the energy dissipated by friction. 
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7. ERC 

8. FICOL 

9 . IDENT 

10. IMPACT 

11. MINV 

12. OMULT 

13 . PRINT 

14 . QKEM . 

15. STRESS 

A complete listing of the CIVM-JBT-4A program is given below in the 
above order. The number of memory locations required on the IBM 370/165 
computer at MIT is approximately 350,000 bytes. This includes the locations 
required for the MIT computer library subroutines. 
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C 


5555 

1 


*****CIVM jet 4A*** 5 ** 

IMPLICIT REA L*8 { A-H'» C-Z ) 

DIMENSION AFP(3,3,8), B.EPS(3,3) 

DIMENSION RMOI (51) , CL ( 5 1) , n CLP ( 5 L ) , Cl A ( 5 1 ) , CLP A { 5 1 ) 

DIMENSION AM50,8,8) ,TXG(6> ,TWG(6) ,ES(6) ,GFL<50,3,6) 

*,S0L(205) , INUMI2G5), KROWI 8) ,NOEX( 8) 

COMMON /BA/ BEP(50,3,3,8), AL{5C) ,AXG(3) ,AWG<3) 

COMMON/ABC. /P>MX(51) , R WOR K ,CI NEV ( 205 ) 

COMMON / TAPE/ MREAD ,MWR I TE , MPUNCH 
COMMON/ SC /CR ITS, PIG,BmE, MCR IT , I 8 1 G, ISU RF 
COMMON /V Q/ FLVAI 205) ,BISP<205> ,DELD ( 205 ) , S NS ( 50 , 3,6,5) , 
*BINP(50,3 ), R IMP (50,3 ),TCISP{205) , TUI 20 5 1 ,TW( 205) , 

*CGI YI205) ,C0IZ(205) ,CEITAT 

COMMON/ FG/YI 51 ),Z( 51 ) , ANGI 5 l ) , H( 5.1) , B , EXANG , NS , I K * NOGA , NFL , NSFL , 
*NI , I COL (205) , NBCOND, NBC (4) ,NGDEB<4) 

COMMON /HM/ YQUNG,DS,C5,C6,ASFL(50,3,6,5),GZETA{50,3f6),SNO{5) 
COMMON/ FRAG/ PH (6 ), FCG( 6 ),FMASS(6) ,FMOI (6) ,FCGL( 6) , FCGW ( 6 ) , A IF A ( 6 ) 
*UD0T(6> »V>DOT (6 ) , ADCT (6 ) , T PR IM (6 ) , CR ( 6 ) , FCGX ( 6 ) , UNK I 6 ) ,NF 
COMMON /OFRAG/DFCGUt 6) ,CFCGW(6) ,DALFA{6) 

COMMON/ ENERG/FK {6 t ,C INETO,CUMW ,DELKE,CEL AS , ELAS, PLA STC 
C0MMCN/LEFT/P,EPS(5) ,SIG(5) ,RMASS(51) 

C0MMDN/ELFU/SPRIN(20 60) , FOR EF{ 205 ) , REX ( 4 > , NQR , NOR P , NQRU , NREL (4 ) t 
*NPST {4) ,NPEU {4) 

COMMON /EF/ EPSI (50) ,EPS0(5G) 

SIN(GI*CS IN ( G ) 

CGS(Q)=CCCS(C) 

ATAN(Q)=CATAN(Q) 

A BS ( Q ) =.C A BS ( C ) 

SORT ( Q) =0 SQP T ( Q) 

MREA0=5 
M WR I T E = 6 
I RRON= 1 
MPUNCH=7 

READ (MREAD , 1 ) 8 , DENS , EXANG , I K, NOG A , NFL , NS FL, MM, Ml, M2, NF 
FORMAT! 3C15. 6/815) 

PIE=3. 14150265 


MAIN0010 
M A IN002C 
MAIN0030 
MAINOC40 
MAIN0050 
MAIN0060 
MAIN0G7C 
MAIN008C 
MAINOC90 
MAIN0100 
MAIN0110 
M A I NO 120 
MAIN0130 
MAIN0140 
MAIN0150 
MAIN016C 
,MA INOi 70 
MAIN0180 
MAIN0190 
MAIN02QC 
MAIN0210 
MAIN0220 
MAIN0230 
MAIN0225 
M AIN0240 
MAIN0250 
MAIN0260 
MAIN0270 
MAIN0280 
MAIN0290 
MAIN0300 
MAIN0305 
MAIN0310 
MA1N0320 
MAIN0330 
MAIN0340 
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IKPl-IK+l 

NS=IK 

IF(EXANG.NE*360«)NS= IK PI 

READ (MR E AC, 11) ( V ( I ) , Z ( I) , ANG ( I ) »H { I) , 1= 1 , NS > 

11 FORMAT (4£ 15 .6 ) 

CG 111 1=1 , NS 

111 ANG ( I )=ANG{ I )*PIE/18G. 

IF( EXANG.NE.360. )GG TO 201 
V ( I KP 1 1= Y ( 1 ) 

Z(IKPI)-Z( 1> 

H (IKPL ) = F (1 ) . 

ANG ( 1KP1 ) = ANG { 1,1 

201 READ(MREAC,2 > DELTA T,CRITS, OS,P, (EPS { L> ,SIG<L>,L = 1,NSFL) 
DC ,2C2 1= 1 ,NF 

READ (MRE AD, 601 ) FH (I ) ., FC G ( 1 1 ,FCGX ( I ) , FMASS ( I ) ,FMOI U ) 
READ (MRE AD,6C1)UNK (I) 

202 READ (MRE AC ,602 )U DOT ( I) , kDOT C I) , A COT ( I > ,T PR IM ( I) , CR ( I) 

601 FCRMAT(6C15.6> 

602 FC RM AT (5C 15, .6 ) 

2 FORMAT (4E15.6/(4E15. 6 J) 

RE AC (MR FAD, 3) (AXG(K) , K = 1 , NGGA ) 

REAC(MREA0,3 ) (AWG( K ) ,K=l jNOGA) 

REA0(MPEAD,3) (TXG( K> ,K = 1,NFU 
RFAC(MREAD','3HTWG(K),K=1,NFL) 

3 FORMAT ( 4F15 . 1 0 ) 

N I=N S*4 

. READCMRE AC, 4 INBCOND 

IF ( NBCCNC . EQ .0 TGC TG 748 . , 

READ(MRFA0,4MNBC( I ) ,NODEB ( I ) , I = l , NBCOND ) 

4 ' FORMAT (915) 

748 READ(MREAD,9) • NOR , NCR P , NORU 

9 FORMAT (315) 

M X = M 1 
MY=M2 
CUMW^O.C 
CELKE=C.C 


MAIN0350 
MAIN0360 
MAIN0370 
MAIN0380 
MAIN0390 
MAIN 0400 
MAIN0410 
MAIN0420 
•MAIN043C 
MA IN0440 
MAIN0450 
M A.TN0460 
MAIN0470 
MAIN0480 
MAIN049G 
MAIN0500 
MAINO'5'IO 
MAIN0520 
MAIN0530 
MAIN0540 
MAIN0550 
MAIN0560 
MAIN0570 
MAIN0580 
MAIN0590 
MAIN060G 
MAIN0610 
MAIN0620 
MAIN0630 
MAIN0640 
MAIN0650 
MAIN0660 
MAIN067G 
MAIN0680 
MA.IN0690 
MAIN0700 
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203 


70 


76 
78 

77 


79 


71 

15 


DO 2C3 1=1, NF 


MAINQ710 
,0)*{ ACCT( IMAIN0720 


)**2) 

MAIN073G 

;ALL IDEN 7 ( NQR ,DEN S ) 

V A JN0740 

CO 70 IR= 1 * IK 

NAIN0750 

DO 70 J= 1 »NOG A 

MAIN0760 

RH=H( IR}*( l.-AXGI J) ) + H( IR+l)*AXG<J) 

NAIN0770 

DO 70 K=1,NFL 

MAIN078G 

GFL(IR,J,K)=RH*TWG(K)*E/2. 

MAIN079C 

G Z E T A { IR, J,K )=RH*TXG(K)/2. 

YAIN0800 

FS(1)=SIG(1)/FPS(1 ) 

M.A I N 0 8 1 0 

IF(NSFL-t1 )77, 77,76 

N A I NO 8 20 

CO 78 L=? » NSFL 

MAIN0830 

ES(LI={SIG{L)-SIG(L“1) ) / ( EPS CLI-EPS CL-1 ) ) 

MAIN0840 

ESINSFL+l )=0.0 

MAIN0850 

CO 79 L= 1 » NSFL 

MAIN086C 

SNO(L)=ES( 1 ) #EP S ( L ) 

MAIN0870 

YCUNG=ES (1) 

MAIN0880 

DO 71 I R=1 , IK 

MAIN0890 

DO 71 J = 1 » NQGA 

YAIN0900 

CO 71 K=1 ,NFL 

MIN0910 

DO 71 L= 1 »NSFL 

MAIN0920 

ASFL ( IR,J,K,L ) = GFL ( I R , J , K ) * ( ES l L )-E S ( L+ 1 )) / ES ( 1 ) 

MAIN0930 

DO 15 1=1,8 

MAIN0960 

ICOL( I )=1 

MAIN0570 

IKM 1= IK-1 

MAIN0980 

IF(EXANG.NE.360. )GG TO 210 

MAIN0590 

DO 16 1 = 3,1 KM 1 

MAIN1000 

IK4=I*4 

M A I Nl G 10 

I K3=I K4- 1 

M A I N 1 0 20 

IK2= IK4-2 

MAIN1030 

I K t= I K4-3 

NAIN1040 

JJ=( 1-1 >*4-3 

MA INIO'50 

I COL ( I K 1 ) = J J 

RAIN1060 

ICGL( I K 2 ) = J J 

MAIN1070 

1C0L{ IK3 ) = J J 

NAIN1080 
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* 

ICOU I K4 ) = JJ 

MAIN 1090 

16 

CONTINUE 

MAINL100 


ICOU IK*4|=1 

M A IN 1 1 10 


ICGL( I K * 4- 1 j = 1 

MAIN1120 


I CCL ( I K*4-2 ) = 1 

MA INI 130 


I COL ( I K* 4-3 ) = 1 

MAINl, 140 


GC TO 218 

MAINl 150 

210 

CO 211 I=3,IKPi 

MA IN 1 160 


I K 4= I *4 

M A INI i70 


I K 3= I K4- 1 

MAINl 180 


I K 2= I K4— 2 

MA INI 190 


IK1= IK4-3 

M A I NI 200 


JJ=( I-l)*4-3 

MA IN 12 10 


I COL ( IK 1 )=J J 

MAIN 1220 


I C.GL (,iK2 ) = J J 

MAINl 230 


I COL ( IK3 ) =J J ■ 

MAINl 240 


ICOU IK4 ) = J J 

■ MAIN1250 

211 

CONTINUE 

MAIN1260 

218 

INLMI 1> = 1 

M A IN 1 270 


DO 99 1=2, NI 

MAIN1280 

59 

I NIJM ( I )=I-ICGL( 1-1 HINLM (1-1). 

M A IN 1290 


DO 990 1=1, NI . 

MAIN1300 

990 

I NUM{ I )= INUM C I )-I COL ( I ) 

MAIN1310 


NI R«EG=C 

MA IN 1 320 


INDEX=C 

M A I N 1 3 30 


I S ET=1 

MAINl 340 


00 116 I=i,NI 

MA IN1350 


L = I COL ( I J 

MA I NI 360 


IFUCCL(I)-ISET)117, 116,119 

MAIN137C 

1 19 

•I SE T= I COL ( I ) ■ 

' MAIN1380 


GO TO 116 

M A I NI 390 

117 

NI RREG=MRREG + i 

MAIN1400 


IF (NIRREG-N 1/2) 711 ,711,90 

•MAIN1410 

711 

' KROto ( N I R R EG ) = I . ‘* . 

MA I N 1420 


NDEX(NIRREG)=INDEX 

MAIN1430 

116 

INOEX= INOEX+I-L 

MAIN1440 



90 


17 

61 

981 


980 


H 

U1 

to 


982 


983 


984 


5 


CALL FICCLINI ,NI,L, ICCL ) 

ISIZ.E-L 

bP I TE ( MWR IT E » 17 ) L 

FORMAT ( /? * SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX = • , I 5 ) 
CALL ELMPPtDELTAT, A A ♦ I S I Z E , KRGW , NDEX iNI RREG , I NUM , DENS , YOUNG ) 

DO 981 IR=l, IKP1 
RMASSI I P)=0.C 
RMX(IR)=G.O 
CO 980 I R= i » IK 

CL( IR)=(2.*H< IR+1)+H{IR))/(3.*H(IR+1 )+3.*F(IR) ) 

CLP( I R ) = 1 • O-CL ( I R ) 

CLA(IR) = ALUR)#CL(IR) 

CLPA( IR)=AL< IR)*CLP(IR) 

RMGIUR)= (H( IR)**2+4.*H( IR)*H< IR * 1 ) +H ( IR+ 1 ) > * AL ( IR)**3/ 

*(36.*(H{ IR)+H( IR+1) ) )*8*DENS 
DO 982 I — It IK Ml 

RMASSU )-=RMASS { I ) + (HII MH( 1 + 1 ) ) *B*OENS*CLPA < I 1/2.0 
RMASS < 1+1 )=RMASSCI+1)+(H( I )+H< 1 + 1) )*E*OENS*CLA( IJ/2.0 
PMX( I )=RMXII J+RMOI (I )*CLP(I) 

RMX( I + n = RMX( 1 + 1 M-RMCI ( I )*CL< I ) 

IF(EXANG.EQ.360. )G0 TO '983 

RMASS (IK }=RM ASS ( !K) + (H{ IK)+H( TK+l > J*B*OENS*CLPA( IKI/2.0 
RMASS UK+'l.)=RMASS< IK + i ) + ( H ( IK ) +H ( IK+ 1 ) ) *B*DENS *CL A ( IK )/2 . 0 
PMX( IK)=RMX( IK )+P-MOI (IK )*CLP<IK). 

RMXUK+1 )=RMX( IK + 1 J+RMG It IKHCL( IK) 

GG TO 9 £4 

RMASS ( IK ) = RMASS< IK)+(H{ I K ) +H (I K+ 1 ) ) *B*DENS*CLPA { I K ) /2 . 0 
‘ RMASS ( U=RMASS(i)+(H(IK)+H( IK+ l ) ) *B*DEN$*CL A ( IK ) /2 .0 
RMXCIK)=RMX( IKJ+RMOI (IK )*CLP( IK) 

R M X ( l) = RM.X(l)+RMQI(IK)*CL( IK) • 

CONTINUE 
•CO 5 IR= 1 »NS 
SGL(IR*4-3)=RMA$S(IR) 

S0L(IR*4-2)=RMASS( IR) 

SOL ( IR*4-1) = RMX{ IR ) 

SOL ( IR*4)=RMX(IR) 


MA I N 1450 
MAIN 14 60 
MAIN1470 
MAIN1480 
M A IN 1 490 
N A INI 500 
MAIN1510 
MA INI 520 
MAIN1530 
MAIN1540 
M A I N1 5 50 
MA INI 560 
MA INI 570 
MAIN1580 
M A IN 1 5 9 0 
MAIN1600 
MAIN1.610 
MA IN 1620 
MAIN1630 
MAIN1640 
MA INI 650 
MAIN1660 
MAIN1670 
MAIN1680 
MAT N1690 
MAIN1700 
MAINL710 
MAIN1720 
M A IN 1 730' 
MAIN! 740 
.MAIN 1750 
MAIN1760 
KAIN1770 
MA INI 780 
MAIN1790 
M A INI 8 00 
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DC 6 1 = 1 r N T 

6 SGLt I) = CELTAT**2/S0UI ) 

IF (NQR .EQ. -0 » GO TO 22 
’ DO 23 L=1,ISIZE 
23 S'PRIN (L ) = 0.C 

CAIL QREM(AA,AL, AXG, AWG4 • 

22 IF(DS.EQ.O.C) GO. TO. 21 

C5=i ./P 

C6~1«/D.S/DELTAT 
21 M,CRIT=0 

B I G = 1 0- < - 10 J 
IBIG=0 

DC 75 1=1, NS 
CGIY(I)=\(I) 

75 CO I Z ( I ) = Z < I ) 

READ (MR E AC , 82 ) ICONT 

82 FORM AT ( I 5 ) 

83 FORMAT ( A 15 ) 

84 FORMAT ( 4 E 1 5 . 7 ) 

385 FCRMAT(6C12.6J 

I F ( ICONT- 1)80,81,81 . 

80 CALL OIMT(ITj,TI ME) 

GC TO 992 

81 ' READ(MREAC,83 )IT, IBIG, ISURF,MCRIT 

READ(MREAD,84) T I ME , B I G , ET I ME 
READIMREADt 84)<DISP'(l ),I = 1,NI) 
READ(MREAD,84) (DELD(I), I=l,NI> 

RE AD (MR FAD, 84) ( { ((SNS(IF,J,K,L>,L=1 


MAIN18 10 
MAIN1820 
MA INI 830 
M A INI 840 
MAIN1850 
MA INl'860 
MAIN1870 
MAIN 1880 
MAIN1890 
MAIN1900 
M A IN 19 10 
MAIN1920 
MAIN1930 
MA IN 1 940 
M A IN 1950 
MAIN1960 
MAIN1970 
MAIN1980 
MAIN 1990 
MAIN2C00 
MAIN2010 
MAIN2020 
MAIN2030 
MAIN2040 
MAIN2050 
MAI N2 060 
MAIN207C. 

rNSFL ) , K=l, NFL) » J = 1 » NOGA) » I R= 1 MAIN2080 


^ » IK ) ' M A I N209.0 

READ (MR E AC, 3 85) ( FCGU ( J ) , FCGW ( J ) , ALFA { J ) , DFCGU { J ),DFCGW( J ) , MAIN210.0. 

*CALFA(J ) ,J=1,NF ) ' MAIN2110 

992 I T= I T+l MAIN2120 

CALL IMPACT ( IT ,NIRR EG, CENS) MAIN2130 

DC 994 1=1, NI MAIN2140 

994 DISP(I)=DISP(I)+DFLD(I) MAIN2I50 

DO 822 1=1, NF MAIN2160 
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FCGU ( I ) = FCGU( I 1+QFCGUU 1 
FCGW ( I) = FCGW,( I 1+DFC.GW { I ) 

822 ALFA ( I )=ALFA(I)+DALFA(I ) 

OC 522 1= 1 » N I • 

F QR EF { I ) =0 • 0 . 

522 FLVA(I1=C.C 

, CALL STRESS . 

I F ( NQR.EG.OJGO TO 735 

CALL OMULHSPRINtDISP t ICQLtNI,FQREF,KRQW,NDEX»NXRRFG) 
DC 736 I=1»NI 

736 FLVA( U=FLVA( n+FQREF(U 
735 CONTINUE 

I F ( IT^MX)815,816,815 
816 ,MX=MX+MY 

CALL ENERGY (IT, KROWt NDFX , N IRREG ) 

815 CONTINUE 

686 IF C NBCCNO.EQ.O 1G0 TO 885 
DO 888 1= 1 » N8CONO 
■NXY=N0CE8('n 
IFCNBCd) .EQ.DGO TO 886 
IF (NBC{ I) .EQ.21GG TO 887 
IF { N8C( I ) .E0.3)Gb ' TO 865 

886 FLVA(NXY*4-3 ) = 0.0 
FLVA(NXY*4-l>=0.0 
GO TO' 888 

887 FLVA(NXY*4-3)=0.0 
FLVA{NXY*4“2)=0.C 
FLVA (NXY^A-i 1 = 0.0 
GC TO 888 

885 FLVA(NXY*4-3) = 0.0, 

FLVAINXY^A- 21=0.0 
388 CONTINUE 
889 NIFE=NI 

DC 525 I«I,NI 

525 DELD(n=DELD<n-FLVA(I)*SOLU) 

T I ME= IT^CELT AT 


MAIN2170 
iNAIN2180 
MAIN2190 
MAI N2200 
iMAIN221C 
MAIN2220 
MAIN2230 
M A I N 22 80 
MA I.N2290 
MAI.N2300 
MAIN2310 
MAIN2320 
MAIN2240 
MAIN2250 
MAIN2260 
MAIN2270 
MAIN2330 
MATN2340 
MAIN2350 
MAIN2360 
MAIN237C 
MAIN2380 
MAIN-2390 
MAIN2400 
MAIN2410 
MATN2420 
MAIN2430 
MAIN2440 
M A IN2450 
MAIN2460 
f<AIN2470 
MAIN2480 
MAIN2490 
MAIN2492 
MAIN2494 
MAIN2 496' 



DO 60 IR=1,IK 
DO 604 1=1 ,NOGA 
CC- 604 J=l,3 
8EPS (I»JJ=- 0.0 
DO 604 K=l,8 
I NDEX= ( IR— 1 )*4+K 

604 B EP S( I * J )= BEPS<I,4)+ BEP ( I R, I , J ,K 
I P= I R+ 1 

HDIF=H(TP)-H(IR) 

DO 60 M =1,3 

HHAG= ( HI I R ) + AXG(M)* HC1F) / 2.C 
F ARE= BEPS(M,l)+BEPS(M,2)**2/2.0 
EP 1= FARE — HHAG* BEPS(M,3) 

EFO= FARE* HKAG* BEPS I M ,3 ) 

I F ( M-2 ) 594,595,594 
595 EPSI ( IR J = EPt 
EPSOt IR )=EPO 

554 IF (EPI .IE. BIG) GO TO 591 
E I G=EPI 
I BI G=I R 

ISTA=M A 

ISURF=1 
BTIME=TIME 

591 IF ( EPG .LE . BIG) GO TO 60 
EIG=EPC 
IBIG=IR 
I ST A=M 
I SURF=2 
8TIME'=TIME 
60 CONTINUE 

IF ( IT— Ml ) 987,988,150 
988 Ml=Ml+M2 

CALL PR INT ( IT »TI ME ) 

987 I F ( IT-MM )992,965,150 
965 IF(IBIG) 62,150,62 

62 I F ( I SURF— 2 ) 64, 6$, 65 


MAIN2500 

MAIN2502 

MAIN2504 

MAIN2508 

M.AIN2510 

MAIN2512 

)* 01 SP( INDEX ) MAIN2514 

MAIN2516 
MAIN2518 
MAIN2520 
MAIN2522 
MAIN2524 
MAIN2526 
NAIN2528 
MAIN2530 
MAIN2532 
MAIN2534 
MAIN2536 
HAIN2538 
M6IN2540 
H.AIN2542 
MAIN2544 
MAIN2546 
MAIN2548 
MAIN2550 
MAIN2552 
MAIN2554 
MAIN2556 
MA IN2558 
HAIN2560 
MAIN2562 
KAIN2564 
HAIN2566 
HAIN2568 
MAIN2570 
MAIN2580 


580 FORMAT!' AT GAUSSIAN STATION =',I3) 

64 HRITEIM WRITE, 66) B IG , I E IG, BT IME 

66 FORMAT ( III , ’ LARGEST COMPUTED STRAIN =',D15.6,' OCCURS AT THE 
DINNER SURFACE OF ELEMENT =*,13,* AT TIME !SEC.) =',015.6) 

WRITE (MW RITE, 580) ISTA 
GO TO 150 

65 WRITE(M WRITE, 67) BIG ,IBIG,BTIME 

67 FORMAT (///, * LARGEST COMPUTED STRAIN =',D15.6,' OCCURS AT THE 
♦OUTER SURFACE OF ELEMENT =*,I3,' AT TIME (SEC.) =',D15.6) 

WRITE (MWRITE, 580) ISTA 
150 WRITE(MPUNCH,83)IT,IBIG,ISURF,MCRIT 
WRITE(MPUNCH,84)TIME,BIG,BTIM.E 
WRITE(MPUNCH,84)(DISP(I),I=1,NI) 

WR I TEC M PUNCH ,84) (DELD(I),I = 1»NI) 

WRITE(MPUNCH,84H ( { ( SNS ( IR, J, K, L) ,t= 1 ,NSFL ) ,K=I , NFL ) , J=l ,NOG A) , 
*IR=l,IK) 

WRITE ( MPUNCH ,385)(FCGU(J) ,FCGW ( J ) , ALF A ( J ) ,DFCGU ( J ) , DFCGW ( J > , 
*DALFA(J)iJ=l,NF) 

I11C CALL EXIT 
END 


MAIN2585 

MAIN2590 

MAIN2600 

MAIN2610 

MAIN2612 

MAIN2620 

MAIN2630 

MAIN2640 

MAIN2650 

MAIN2652 

MAIN2660 

MAIN2670 

HAIN2680 

MAIN2690 

HAIN2700 

HAIN2710 

MAIN2720 

MAIN2730 

MAIN2740 

HAIN2750 
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SUBROUTINE ASSEF ( I R , IK , ELFP , FLVA , EXANG ) 

ASSF0010 


IMPLICIT REAL*8(A-H,0-Z) 

ASSFOC20 


DIMENSION NN(8),FLVA<1),ELFP(1) 

ASSFCC30 


SIN(Q)=DSIN<Q) 

ASSFOC40 


COS ( Q )=DC0SIQ ) 

ASSF0050 


ATAN(Q)=DATAN(G) 

ASSF0C60 


ABS(Q)=DABS(Q) 

ASSFC070 


SQRT (Q )=DSQRT (Q ) 

ASSF0080 


Jl= IR*4 

A SSF0090 


NN { 1 ) = Jl-3 

ASSFC1C0 


NN( 2)=Jl-2 

ASSF01.10 


NN(3)=J1-1 

A SSF0120 


NN (4 ) = J1 

ASSF0130 


I F ( EXANG.NE.360. ) GO TO 121 

ASSF0140 


IF(IR-IK) 121,122,122 

ASSF0150 

121 

J2= ( IR+I }*4 

ASSFC160 


NN ( 5 ) = J2-3 

ASSF0170 


NN { 6 )= J2-2 

ASSF0180 


NN ( 7 )=J2-1 

ASSFOlgO 


N N ( 8 ) = J 2 

ASSFG200 


GO TO 123 

ASSF0210 

122 

NN ( 5 ) = 1 

A SSF0220 


NN (6 ) =2 

ASSF0230 


NN ( 7 > = 3 

ASSF0240 


NN ( 8 ) = 4 

ASSF0250 

123 

DO 101 1=1,8 

ASSF0260 


M=NN( I > 

ASSF0270 


FLVA(M)=FLVA(M)+ELFP( I) 

ASSF0280 

101 

CONTINUE 

A SSF0290 


RETURN 

ASSF03C0 


END 

ASSF0310 
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SUBROUTINE ASSEM <IR ,ELM AS , ST I FM ) 

IMPLICIT REAL*8( A-H,0-Z) 

DIMENSION ELMAS(8,8),NN(8),STIFM{ 1) 

COKMGN/FG/Y (51) «Z(51) , ANG ( 5 1 ) , H (5 l ) , 8 , EX AN G ,NS , IK, NOGA , NFL , N SFL , 
*NI ,ICOL<205) ,NBC0ND,NBC(4) ,N00EB<4> 

SIN(Q)=DSIN(Q) 

CGS(Q)=bcdS(0) 

ATAN(Q)~OATAN(Q) 

A8S ( Q )'=DABS ( Q ) 

SORT IQ ) =DSQRT I C) 

J1=IR*4 
NN ( 1 ) = J 1~3 
NN ( 2 ) = J 1-2' 

NN ( 3 ) = J l— l 
NN ( 4 ) = J 1 

IF (EXANG.NE.36C. >GO TO 203 
IFUR-IK) 203,204,204 
203 J 2= ( I R+ 1 )*4 

NN { 5 )=J2-3 
NN {6 j = J2-2 
NN ( 7 ) = J2— t 
NN ( 8 )=J2 
GO TO 202 
2C4 NN(5)=i 

NN ( 6 ) =2 
NN ( 7 ) =3 
NN ( 8 ) =4 

202 DO 402 1=1,8 
M=NN ( I ) 

■ DO 402 J=1 ,8 
N=NN ( J I 

I F { M-N 1402,403,403 
403 CALL FICGL(M,N,L»ICOL) 

STIFM(L)=STIFM(L)+ELMASU , J) 

402 CONTINUE 
RETURN 


ASSMCC10 
ASSM0020 
A SSMG030 
ASSM0C40 
ASSMC050 
ASSM0C60 
A SSMCC70 
ASSM0C80 
ASSM0090 
ASSMOIG'O 
ASSM01 10 
ASSM0120 
A SSM0130 
AS SMO 140 
ASSM0150 
ASSM0160 
ASSMC170 
ASSM0180 
ASSM0190 
ASSMC200 
ASSM0210 
ASSM0220 
ASSM0230 
A SSM0240 
ASSM0250 
A SSM0260 
A S SMC 2 70 
ASSM0280 
ASSM0290 
ASSMC3C0 
ASSM0310 
ASSM0320 
ASSM0330 
ASSM0340 
ASSM0350 
AS SM0360 


' END 


ASSMC37C 
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1 


2 


5 


SUBROUTINE DIN IT< I T,TI ME) 

IMPLICIT REAL#8 ( A-H»G~Z ) 

. COMMON /VQ/ FLVA<205),DISP(205),CELD(205),SNS(50,3,6,5), 

*BINP( 5C,3),BIMP<5C,3) t TDISP(205) ,TU(2C5) ,TW<205) , 

*COIY (205),CGIZ<205),0ELTAT 

CGNMCN/FG/Y{5U ,Z<51 ) ,ANG(51 >»H(51 ),B,EXANG,NS, IK, NGGA,NFL ,NSFL , 
*NI , ICOL( 205) ,NBCOND,NBC(4) ,N0DEB(4) 

COMMON /HM/ YOUNG, DS,C5,C6,ASFU 50,3,6,5) ,GZETA(5C, 3,6) ,SNC(5) 
C0MMCN/FRAG/FH(6) ,FCG(6), FMASS 1 6 ) , FMO H 6 ) , FC GU 1 6 ) , FCGW < 6 ) , AL FA ( 6 ) 
*UDOT< 6) ,WDOT( 6) ,ADOT( 6) ,TPRIM(6) ,CR(6 ) ,FCGX(6) ,UNK{6),NF 
COMMON /DFR AG/DFCGU ( 6 ) ,OFCGW ( 6 ) ,DALFA { 6 ) 

I T=0 

TIME = 0. 

DO 1 1=1,205 
OELC ( I )=0.0 

dispi r )=o.o 

DO 2 IR= 1, IK 
DO 2 J=1,N0GA 
DO 2 K=1,NFL 
DO 2 L=i»NSFL 
SNS { IR, J,K,L)=0.0 
DO 5 1=1, NF 

DFCGU ( I ) =UDOT ( I ) #DELT AT 
DFCGWl I )=WDOT( I ) *DELTAT 
DALFA ( I )= ADCT ( I ) *OELT AT 

FCGUU ) =FCGXI I)+UDOT(I)#TPRIM(I) 

FCGW ( I )=FCG( I )+WDOT (I)*TPRIM(I ) 

ALF A { I )= AOOT(I)*TPRIMU) 

RETURN 

END 


DINT0010 
DINTC.C20 
DINT0030 
DINT0G40 
DINTCC50 
DINTCC60 
OINT0070 
DINTOC80 
, DINTCC90 
D INTO ICO 
DINTOliO 
D INTC120 
DINT 0130 
DINT0140 
DINT0150 
D INT0160 
DINT0170 
DINT0180 
DINTC190 
DINT0200 
DINT0210 
DINTC220 
DINT0230 
D INT0240 
DINT0250 
DINT0260 
DINT0270 
DINT0280 
DINTC290 
DINT03C0 
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SUBROUTINE ELM.P P ( CELT AT * A A , IS I ZE , KROW , NO EX , N I RREG» INUM, DENS , YOUNG ) ELMPCC1 0 
IMPLICIT REAL*8( A-H,0-Z) ELMP0020 

DIMENSION A(8,8),AA(50,8,8),LMI<8),MMI(8) ELMPC030 

# , B El (3 »3»8) , K R CVf ( 1 ) * N D EX ( 1 ) , INUM ( 1 ) , BNG ( 5 1 ) ELMP0C40 

C0MM0N/FG/Y(51> t Z(51) ,ANG(51) »H<51) , B »EX ANG » NS , IK, NOG A, NFL , NS FL» ELMP0C50 
*NI » IC0L( 205) ,NBC0N0»NBC(4) ,N0DEB(4) ELMPC060 

COMMON / BA/ BEP(50»3 f 3»8)»AL(50)»AXG(3)»AWG(3) ELMP0070 

COMMON /TAPE/ MREAD,MWRITE, MPUNCH ELMP0080 

SIN(Q)=DSIN(Q) ELMP0090 

COS (G)=DCOS(Q) ELMPC100 

ATAN(Q)=DATAN(Q) ELMP0110 

ABS ( Q )=DABS (Q ) ELMP0120 

SQRT ( Q )=DSQRT (Q J ELMP0130 

50 DO 101 IR=1,IK ELMPC140 

P 5=Z ( IR+ I ) -Z ( I R ) ELMP0150 

P6=Y ( IR+l)— Y ( IR ) ELNIP0160 

P7=ANG(IR+l)-ANG(IR) ELMP0170 

APHA=ATAN( P5/P6) ELMP0180 

IFIP6.LT. 0.0. AND.P5.LT. 0.0) APHA=APHA- 3 . 141 59265 ELMP0190 

IF(P6.LT.0.0 .AND. P5.GE.0.0) APHA=APHA+3 . 14159265 ELMPO2C0 

IFIP7 .EQ. 0.0) GO TO 60 ELMP0210 

AL( IR)=P7*SQRT(P5**2+P6**2)/SIN(P7/2.)/2. . ELMP0220 

IF(P7.GT.4.7123 8897)AL ( IR )= ( P7-6. 283 1 853 ) *SQRT ( P 5**2 + P6** 2 ) ELMP0230 

*/SIN(P7/2. -3.141592651/2. ELMP0240 

IFIP7.LT.I— 4.71238897) )AL( I R ) = ( P7 + 6. 2 831 8 53 ) * SCR T ( P5**2+ P6**2 ) ELMP0250 

*/S IN (P7/2. + 3. 141592651/2. EL.MP0260 

GC TO 61 ELMP0270 

60 AL(IR)=SQRT(P5**2+P6**2) ELMP0280 

61 BNG(IR+1)=ANG( IR+1) ELMP0290 

BNGII R)=ANG(IR ) ELMPC3C0 

IF IP7.GT. (4.7124) .AND.APHA.LT. 0.0) BNG ( I R+l ) =ANG (I R + 1 ) -6. 283 18 53 ELMP0310 
IF (P7.GT. (4.7124) .AND. APHA.GT.0.0 ) BNG( IR ) -ANG< I R)+6. 2831853 ELMP0320 

IF(P7.LT.(-4.7124).AN0.APHA.GT.0.C) BNG ( 1R + 1) = ANG( IR+1 ) +6. 28 3 1853 ELMP0330 
IF(P7.LT. (-4. 7 124). AND.APHA.LT. 0.0) BNG ( IR ) =ANG ( IR )-6. 283 1853 ELMP0340 

BZER=BNG( IR)-APHA ELMP0350 

B1=(-2.*BNG( IR + 1 )-4.*8NG( IR ) + 6.*APHA )/AL ( IR) ELMP0360 
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B2=(3.=i t BNG(IR + l)+3.*BNG(IR)-6.*APHA)/AL(IR)**2 


ELMP0370 


. DO 102 1=1,8 
. DO 102 J = 1 , 8 
102 A ( I , J )=0. 0 

A ( 1 » 1 )= COS(BNGIIR)-APHA) 

A ( 1 , 2 )= SINCBNGC IR)-APHA) 

A <2,1 )=-SIN(BNG( IRJ-APHA) 

A ( 2 , 2 ) = COS(BNG( IR)-APHA) 

A ( 3, 3 )= 1. 

A (5,1 ) = COS (BNGUR + D-APHA) 
A(5,2)=SIN(BNG(IR+1)-APHA> 

A ( 5,3 ) = P6*S IN( BNG( IR+1 ) J-P5*C0S( BNG ( IR+1) ) 
A (6,1 )=r-SIN(BNG( IR+1)-APHA) 
A(6,2)=C0S(8NG(IR+1)~APHA) 

A(6,3)=P6*C0S(BNG( IR+1 ) ) +P5*S IN < BNG < IR+ 1 > ). 
A ( 7, 3 )=i* 

A (4 ,4 )=1. 

A ( 5 , 4 ) =AL( IR) '' 

A(5,7)=AL( IR)**2 
A (5 , 8 )=AL ( IR>**3 
A ( 6 , 5 ) =AL( I R > 

A(6*6)=AL( IR>**3 
P8=Bl+2i*B2*AL(IR> 

A ( 7 , 4 ) =AL( IR)*P8 
A ( 7, 5 ) = 2.*AL ( IR > 

A(7,6)=3.*AHIR)=»*2 
A { 7 ,7 ) = AL ( IR)**2*PS 
A ( 7, 8 )=AL( IR)**3*P8 
A ( 8, 4 ) = 1> 0 

A'( 8 ,5 ) =- AL C IR)**2*P8 
A(8,7)=2.*AL(IR) 

A( 8,6 )=-AL ( IR )**3*P8 

A ( 8 , 8 ) = 3.*AL ( IR ) ; < 1 *2 

CALL P I NV( A 1 8 , GET , LM I , I ) 

DO 52 1=1,8 
DO 52 J= 1, 8 


E LMP0380 
ELMP0390 
ELMPG4CC 
ELMP0410 
ELMP0420 
ELHP043C 
ELMP0A40 
ELMP0450 
ELMP0460 
ELMP0470 
ELMP0480 
ELMPQ490 
ELMPC5C0 
ELMP0510 
ELMP0520 
ELMP0530 
ELHP0540 
ELMP0550 
E LMP0560 
ELMP0570 
ELMP0580 
ELMP0590 
ELMP06C0 
ELMP0610 
ELMP0620 
ELMPC63G 
ELMP0640 
ELMP0650 
ELNP066C 
ELMP0670 
ELMP0680 
E LMP0690 
ELMP0700 
ELMP0710 
ELMP0720 
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52 AA(IR»1,J)=A(I,J) 


ELMP0730 


OQ 103 J= 1 f NOG A 
ZET=AL(IR)*AXG(J> 

PHIP=B1+2.*B2*ZET 
PH£=8ZER+B1*ZET + B2.*ZET**2 
WET=ALUR)*AWG( J > 

Y ZE T=0 • 0 
ZZE T = 0. 0 

DO 104 J J= 1 f NOG A 

P2=BZER+Bl*ZET*AXG(JJ ) +B2* < ZE T*AXG ( J J ) )**2+APHA 
YZET=YZET+CGS(P2)*ZET*AWG(JJ) 

104 ZZET=ZZET+SIN(P2 )*ZET*AWG( J J ) 

P3=YZET*SIN( PHI+APHA)-ZZET*CnS(PHl+APHA ) 
P4=YZET*C0S(PHI+APHA)+ZZET*SIN<PH£+APHA) 

DO 201 M=1 » 3 
DO 201 N=l»8 
201 BE 1 ( J » M»N) =0 . 0 
BE'l(J,l,4)=l. 

BEK J t 1»5)=-ZET**2*PHTP 
BEK J,1,6)=^ZET**3*PHIP 
BEK J, 1,7)=2.*ZET 
BEK J, 1,8>=3.*ZET**2 
BEKJ,2t3) = l. 

BEll J,2,4)=ZET*PH£P 
BE 1 ( J » 2t 5) =2. *ZET 
BEK Jt2,6)=3.*ZET**2 
BEK J,2r7>?=ZET**2*PHIP 
BEK J,2,8)=ZET**3*PHIP 
BEK J, 3 t 4)=-PH£P-ZET*2.*B 2* 

BE1 ( J f 3,5)=-2. 

BE 1( J,3,6)=-6.*ZET 
BE1( J f 3, 7)=-2.*ZET*PH£P-ZET**2*2.*B2 
BE1 ( J,3»8)=-3.*ZET**2*PHIP-ZET**3*2.*e2 
DO 202 R=1 » 3 
DO 202 N=lf 8 
BEP ( IRt J-tM*N)«a.O 


ELMP074Q 

ELMP0750 

ELMP0760 

ELMP0770 

ELMP0780 

ELMPC79G 

ELHP0800 

ELMP0810 

E LMP0820 

ELMP0830 

ELMP0840 

ELMP0850 

ELMP0860 

ELMP0870 

ELMP0880 

ELMP089G 

ELMP0900 

ELHP0910 

E LHP 09 20 

ELMP0930 

ELMP0940 

ELMP0950 

ELMPC960 

ELMP0970 

E LHPG980 

ELMPG990 

ELMP1C00' 

ELMP1010 

ELMP1G20 

ELMP1C30 

ELMP1040 

ELMP1C50 

ELHP1C60 

ELMP i070 

ELMP1.G80 
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DO 202 K=1 »8 

ELMP1090 

20? 

BEP( IR, JtH,N)=8EP(IR, J,M,N)+8E1< J,M,K)*A{K,N) 

ELMP1100 

103 

CONTINUE 

ELMPlUO 

101 

CONTINUE 

ELMP1120 


RETURN 

ELMP1130 


END 

ELMP1140 



o n o 


SUBROUTINE ENERGY ( I T , KROW , NCEX , N I RR EG , NOPE ) ENGDOClO 
THIS SUBROUTINE IS THE DUHMY ROUTINE THAT MUST BE REPLACED BY THE ENGDOOZO 
CALCULATION ROUTINE IN THOSE CASES IN WHICH AN ENERGY ACCOUNTING ENGD0030 
IS DESIRED ENGDGC‘40 
RETURN ENGD0C50 
END ENGD0060 


CTi 

W 
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SUBROUTINE ENERGY (I T , KRGW * NCEX , N IRREG ,NCPE ) 

THIS IS THE ENERGY CALCULATION SUBROUTINE 
IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION ANKE (205 ) 

DIMENSION C INETF ( 6) 

COMMON / BA/ BEP<50,3,3,8) ,AL(50) ,AXG<3> ,AWG{3> 

COMMON /TAPE/ MREAC, MWRIT E, MPUNCh 
COMMON /SC/CRITS»BIG»BTIME,MCRIT»IBIG» ISURF 
COMMON /VQ/ FLVA(205),DISP(205),DELD(205) ,SNS<50, 3,6,5) , 
*BINP(50,3),BTMP(50,3),TDISP<205),TU(205),TW( 2C5) , 
*COIY(2C5)»COIZ(2Q5)*DELTAT 

COMMON/ FG/Y( 51 ),Z( 51) ,ANG( 51) ,H < 5 1 ) , B ,E XANG , NS , I K , NOG A ,NFL »NSFL , 
*NI, ICOLI205), NBCOND,NBC( 4 ) ,NODEB( 4 ) 

COMMON /HM/ Y0UNG*CS,C5,C6,ASFL(50*3,6,5) , GZET A(50,3»6), SNO l 5 ) 
COMMON/FRAG/FH ( 6) ,FCG(6) ,FMASS{6) ,FMCI(6) , FCGU (6 ) , FCGW t6 ) , ALFA <6 
*UD0T(6),WD0+{6)»AD0T<6),TPRIM(6) f CR.(6),FCGX(6) ,UNK(6),NF 
COMMON /DFRAG/DFCGU <6 ) , DFCGW (6 ), OALFA (6 ) 

C0MM0N/ENERG/FK<6) , Cl NETO , CUMW ,DE LKE , CEL AS , EL AS , PL ASTC 
COM MON /ABC/ RMX ( 51 ) , RWORK ,CINEY{205) 

COMMGN/LEFT/P , EPS (5 ) , S IG < 5 ) , RMASS <51 ) 

COMMON /ELFU/S PR IN ( 206 0 ) ,FQREF (205 ) , REX 14) ,NGR ,NORP , NORU , NRELI4 ) , 
*NRST (4 ),NREU{ 4) 

SIN(Q)=D.SIN(Q) 

COS ( Q) =OCOS (Q ) 

AT AN ( Q )=DAT AN ( G ) 

ABS (Q)=DABS (Q) 

SORT (0)=DSQRT ( G ) 

NOPE= 1 

WRITE! MW RITE, 7) 

FORMAT < ' CURRENT TIME CYCLE', 10X, * FR AGMENT ' » 10X, 'KINETIC 

^ENERGY',/) 

IMX=IK+1 

IF(EXA'NG.NE.360.)G0 TO 1 

DO 2 1=1, IK 

AMKE( I*4-3)=RMASS( I ) 

AMKE ( 1*4-2 )=RM ASS ( I ) 
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2 

1 

4 

6 

5 

8 

9 

10 
11 

12 


AMKE !I*4-1)=RMX< I ) 

AMKE ( I*4)=RMX( I ) 

AMKE ( IMX*4-3)=RMASS<1) 

AMKE<IMX*4-2)=RNASS (1) 

AMKE { I MX*4- 1)=RMX(1) 

AMKE ( IMX*4.)=RMX< 1) 

GO TO 3 

DO 4 1=1 , IMX 

AMKE( I*4-3)=RMASS( I ) 

AMKE(I*4-2)=RMASSm 
AMKE ( I #4-1 > =RMX ( I ) 

AMKE < I *4)=RMX( I ) 

RWORK=0 • 0 
DO 5 I =1 ,NF 
FUV=DFCGU(I J/DELTAT 
FWV=DFCGW( I ) /DELTAT 
FAV=DALFA< I )/DELT AT 

C I NETF (.1 ) =FMA $$ ! I ) /2 . 0+ ( FUV**2+FWV**2 ) + FMO I { I) /2 .0* ( F AV **2 I • 
RWORK=RWORK+!FK! I )-CINETF( I) ) 

WRITE!MWRITE,6> IT, I,CINETF( I) 

FORNATtlOX, I5,15X,I5,9X,015.6) 

CONTINUE 

WRITE! MW RITE»8) IT, R WORK 

FORMAT!/,* WORK INPUT INTO RING TO TIME STEP *, 1 5, •** • , D 15. 6) 

DO 9 K=1,NI 

C I NEY ( K ) = AMKE!K)*DELD(K) 

CINETO=0.0 
DO 10 K=1,NI 

CINETO=ClNETO+OELD(K)*CINEY!K) 

CINETO=CINETO/2.0/DELT AT **2 
WRITE(MWRITE,11) IT,CINETO 

FORMAT! • RING KINETIC ENERGY AT TIME STEP* ,15,* = • ,015.6) 

IF ! EXANG.NE .360 • ) GO TO 13 
DO 12 K= 1 ,4 ■ 

DISP! I K*4+K )=DISP(K) 

DELC! IK*4+K) = DELD(K> 


ENER0370 

ENER0380 

ENER0390 

ENERC4C0 

ENER0410 

ENER0420 

ENER0430 

ENER 0440 

ENER0450 

ENER0460 

ENER0470 

ENER0480 

ENER 0490' 

ENERC5C0 

ENER 0,5,10 

ENER0520 

ENER0530 

ENER 0540 

ENER0550 

E NER0560 

ENER0570 

ENER0580 

ENER0590 

ENERC6C0 

ENER0610 

ENER0620 

ENERC63Q 

ENER0640 

ENER0650 

ENERG660 

ENER0670 

ENER0680 

ENER0690 

ENER 0700 

ENER0710 

ENER0720 



13 ELASTIC. 0 

DO 15 I R=l, IK 
DO 16 J=l»NOGA 
SUM=0.0 
DO 17 K=1,NFL 
DO 17 L=1,NSFL • 

17 $UM=SUM + SNS(IR,J,K,.L)**2*ASFL{ IR, j,K,L) 

16 ELAST=ELAST+SUM*AWG{J)+AL( IR) 

15 CONTINUE 

SPDEN=0.0 

IF(NQR.EG.O)GC TO 18 
DO 19 1=1, NI 

19 FQREF(I)=0.0 • ' 

CALL OMULTI SPRIN»DISP» I COL ,NI, FQREf ,KROW,NCEX,N IRREG ) 

DO 20 [=1 ,NI . 

20 SPDEN=SPDEN+DISP( I}*FQREF(I) 

SPD6N=SPDEN/2.0 

£ 18 CELAS=ELAST/Y0UNG/2.0 

® WR ITE{ MWRITE, 2 1 ) IT, CEL AS 

21 . FORMAT { * RING ELASTIC ENERGY TO TIME STEP * » I 5, • = *,D15.6) 

PLAST=RWGRK-C INETO-CELAS-SPDEN 
WRITEIMWRITE, 22) lT,PLAST 

22 FORMAT { * RING PLASTIC WORK TO TIME STEP*, 15, * = *,015.6) 

WRITE(MWRITE,23) SPDEN 

23 FORMAT { * ENERGY STORED IN ELASTIC RESTRAINTS =»,D15.6) 

RETURN 

END 


ENERC730 
ENER0740 
ENER0750 
ENER0760 
ENER0770 
ENER0780 
ENERC790 
ENER08C0 
ENER0810 
ENER0820 
ENER0830 
ENER0840 
ENER0850 
ENER 0860 
ENER0870 
ENER0880 
ENER0890 
ENER 0900 
ENER09 10 
ENER0920 
ENER 0930 
ENER0940 
ENER0950 
ENER 0960 
ENER0970 
ENER0980 
ENER099C 
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SUBROUTINE ERC(II»STIFM»NI» I COL ) ERC 

IMPLICIT RE AL*8 ( A-H »0-Z ) ERC 

C FOR ELIMINATING ROWS AND COLUMNS IN STIFM ERC 

DIMENSION ST IFM(l) » ICCL(l) ERC 

IC=ICOL( II) ERC 

DO 101 J=IC»II ERC 

CALL FICOLl II, J,L, ICOL ) ERC 

1CI STIFM (L)=0. ERC 

DO 102 I — 1 1 * N I ERC 

IC1=ICCLU) ERC 

IF(II-ICl)102 f 103,103 ERC 

1 03 CALL FICOL(I,II,L,ICOU ERC 

ST IFM( L ) = 0. ERC 

102 CONTINUE ERC 

CALL FICOLl IlyllfLtICOL) ERC 

STIFM(L>=1. ERC 

RETURN ERC 

END ERC 


C010 
0C20 
0030 
C04 0 
GC50 
0060 
0070 
CC80 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
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SUBROUTINE F ICOL U , J , L , ICOL ) 

IMPLICIT REAL*8 (A-H,0-Z) 

C USING FORMULA L= J+SUM { K-I COL ( K ) ) , K=l « I TC RELATE 1,4, TC L 
DIMENSION ICOL ( 1 ) 

IFIJ-ICCLU >>200,300,300 
300 I SUM=0 

DO 305 K=1,I 
ISUM=K-ICOL (K ) + ISUM 

305 CONTINUE 
L= J+I SUM 
RETURN 

2 CO WRITE (6 ,4 ) I , J 

4 FORMAT ( 31H. ELEMENT IS NOT IN BAND REGION, 3H I-»I5,3F J=,I5) 
RETURN 
END • 


F ICLCCIO 
F ICLCC2G 
FICLCC30 
F ICL0040 
FICLCC50 
F ICLC060 
FICL0070 
F ICLG080 
FICLCC90 
FICLOIOO 
FI CL 01 10 
FICL0120 
F I CL 0 130 
FICL0140 
FICLOlSO 
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81 

1 


2 

80 

3 


4 


SUBROUTINE I DENT < NGR, DENS ) 

IMPLICIT REAL*8{ A-H,0-Z) 

COMMON /TAPE/ MR E AD , M WR I TE »MPUNiCH 

COMMON /HMA Y CUNG , DS ♦ C5 , C6 , ASFL ( 50, 3 , 6, 5 ) , GZETA ! 50, 3 , 6 ) , SNO ( 5 > 
COMMON/SC /C PITS, BIG, BTIME»MCRIT»IBIG, ISURF 
COMMON /VQ/ FLVAI205) ,DISP<205), DELD ( 205 > , SNS < 5C , 3,6,5) , 
*BINP!50,3), BIMP (50,3),TDISPI205),TU( 205 ) , TW! 205 ) , 

*CO I Y (205) , CC I Z (205) ,DELTAT 

COMMON/FG/V(51) , Z I 5 1 ) , ANG (51) ,H < 5 1 ) , B , EX ANG , NS , I K , NOG A , NFL , NSFL, 
*NI , ICDL <205),N8COND,NBC{4) ,NODEB( 4 ) 

C.0NMCN/FRAG/FHI6) ,FCG(6 ),FMASS(6 ) , FMO 1 1 6 ) , FCGU ! 6 ) » FCGW ( £ ) » ALFA ( 6 ) 
*UDOT( 6} ,WD0T( 6} , ADO T I 6 ) , TPRI M ( 6 ) , CR ( 6 } , FCGX { 6 ) ,UNK(6),NF 
C0NNGN/ENERG/FM6 ) , C IN ETO , CUM W ,DELKE , CELAS ,ELAS , PL ASTC 
CGMMCN/LEFT/P,EPS (5 > , S IG <5 ) , RMASS ( 5 1 ) 

SI N ( Q ) -DS IN ( Q } 

COS t Q )=DCOS{Q) 

AT AN { Q ) =DAT AN! C ) 

AB $ ( Q) =DABS ( Q ) 

SQRT ( G )=DSQRT ( Q ) 

IFIEXANG.EG.360. )G0 TO 81. 

WRITE! MW RITE, 2 >EX ANG 

GO TO 80 . 

WRITE (MWRITE, 1 )EXANG 

FORMAT!* COMPLETE RING **JET** CONTAINMENT ANALYSIS*,//, 


I DNTCC10 
IDN70C20 
I DNT0030 
I D NT C 040 
IDNTC050 
ICNT0060 
I DNT0070 
I DNTCG80 
ICNT0090 
I DNT0100 
IDNT0110 
ICNT0120 
I ONT 0130 
IDNTC14C 
ICNT0150 
IDNT0160 
I ONTO 170 
IDNT0180 
IDNT0190 
I DNT0200 
I DNT0210 
I DNT0220 
IDNT0230 
IDNTC240 

RING.' ,25X, * = *,D15.IDNT0250 

IDNT0260 

ANALYSIS *,//, 10X, *RINIDNTC270 

IDNT0280 
I0NT0290 

FORMAT (12X, 'WIDTH CF R I NG ( I N ) • , 30X , »= • , C 1 5 .6 i / , 1 2X , » DENS I TV OF RINI DNT0300 
*G* ,33X, •=', DL5. 6, /,12X,» NUMBER OF ELEMENTS », 30X, '= * , 15,/, 12X, 'NUMBI DNT0310 
*£R OF SPANWISE GAUSSIAN PTS. • , 16X , ' = • , I 5 , /, 12X, • NUMBER CF CEPTHWIS IDNT0320 
*E GAUSSIAN PTS.'»15X, '-*,I5,/,12X, 'NUMBER OF MECHANICAL SUBLAYERS* I DNT0330 
*,18X,»=' ,15,/) IDNT0340 

WRITE (M WRITE, 4) ! L , E PS ! L ) , L , S I G { L ) ,L=1 ♦ NS FL ) IDNT0350 

F0RMATU5X, 'STRAIN !',!!,*) = • ,D 1 5 . 6 » ' STRE SS ( » , 1 1 , « ) =',DI5.6,/) IDNT0360 


# 10X , 'RING PROPERTIES' ,/,12X,' SUBTENDED ANGLE OF 
* 6 ,/) 

FORMAT!* PARTIAL RING **JET** CEFLECT ION 

*G PROPERTIES' ,/,l2X, 'SUBTENDED ANGLE CF 
WRITE!MWRITE,3)B,DENS, IK ,NOGA , NFL, NSFL 


RING',25X,'=',C15-6,/) 
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5 


6 

7 

8 


g 


10 

li 


12 


14 

15 

16 

17 

28 

13 

18 

20 


WRITE! MWRITE, 5) 
FORMAT! 12X 
*'R1NG THICKNESS 


, 'NODE NO.', 


10X,'Y COORD' ,10X,*Z COORD* 


AT NODE I*,/) 


WRITE (MWRITE, 6) ( I , Y ( I ) , Z ( I ) , ANG! I ),H( I), 1=1, NS) 

FORMAT! 12X, I 5,401 5. 6,//) 

WRITE(MWRITE, 7) 

FORMAT (10X, 'FRAGMENT PROPERTIES', / ) 

WR I TE ( MWR I TE ,8 ) 

FORMAT ( 12X, »FR AG .NO i ' , 5X, * 

FOMENT OF INERTIA OF FRAG.',/) 

WRI TE ( MWRITE, 9 ) ( I ,FH( I ) , FMASS ! I) , FMO I II), I = 1,NF) 

FORMAT! 15X, 15,3015.6, //) 

WRITE! MWRITE, 10) 

WRITE!NWRITE,11) 

WRITE! MWRITE, 12) ! I »UOOT( I ) ,WDOT(I) ,ADOT!I) ,CR ( I ) ,FK ( I ) ,UNK( I ) , 
*1=1, NF) 

FORMAT UOX, 'CCLUS ION PARAMETERS* , / > 

FORMAT ( 12X, 'FRAG. NO.* » 3X» ’ VEL IN Y DIR.' 


IDNTC370 

, 10X, 'SLOPE' ,10X, ICNT0380 

IDNTC390 
IDNTC4C0 
IDNT0410 
ICNT.0420 
I DNTC430 
IDNT0440 

,»MASS OF FRAG.* ,5X,'MICNT0450 

I DNT0460 
IDNT0470 
IDNT0480 
I DNT0490 
I DNTG5C0 
I CNT0510 
ICNT0520 
I DNTC530 

INZ CIR. ' , 3X , ' AN I ONTO 540 


*G. VEL.',3X, 'COEFF.OF 
*' COEFF. OF FRICT*,/) 
FORMAT (15X, 15,6015.6,//) 
IF(NBCOND .EQ. 0) GO TO 
DO 14 1= 1 , NBCONO 
I F ( NBC ( I ) .EQ. 1) 

.EQ. 2) 

.EQ. 3) 


>3X , ' VEL 

RESTIT. *i3X, 'INITIAL KINETIC ENERGY', 3X, 


I F ( NBC ( I ) 

I F ! NBC 1 1 ) 

CONTINUE 

FORMAT!* SYMMETRY 
FORMAT!' CLAMPED 

FORMAT!' HINGED 

GO TO 18 • 
WRITE!MWRITE, 13) 
FORMAT!/, » THERE IS 
IF! NQR .EQ. 0) GO TO 
WRITE(MWRITE,20) 


28 


WRITE ( MWRITE, 15 ) 
WRITE(MWRITE,16) 
WRITEtMWRITE, 17) 


NODEB! I ) 
NODEB! I) 
NODEB! I ) 


DISPLACEMENT 

DISPLACEMENT 

DISPLACEMENT 


CONDITION 

CONDITION 

CONDITION 


AT NODE =• , 15 ) 
AT NODE =' ,15) 
AT NODE = ' , 1 5 ) 


NO 

19 


PRESCRIBED DISPLACEMENT CONDITION') 


FORMAT!/, 


CONSTRAINTS (ELASTIC FOUNCAT I ON/SPR ING ) AS 


IDNT0550 
I0NTC560 
I DNT0570 
I DNT0580 
IDNT0590 
IDNT0600 
IDNT0610 
IDNT0620 
I DNT0630 
IDNT0640 
ICNT0650 
I DNT0660 
IDNT0670 
IDNT0680 
I DNTC690 
IDNT07C0 
I DNT0710 
DESCRI8E0IDNT0720 
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* BY INPUT 1 ) 

IDNT0730 


. GO TO 23 

IDNT0740 

19 

WRITE! NWR ITEt 21 ) ' 

I DNT0750 

21 

FORMAT! /i* THERE ARE NC ELASTIC SPRING CONSTANTS') 

IDNTC760 

23 

RETURN 

IDNT0770 


END 

IDNT0780 
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87 

89 

88 


2 


SUBROUTINE IMPACT U T , N IRREG , DENS ) I'MPTOCIO 

IMPLICIT REAL#8 I A-H»0-Z ) IMPT0020 

DIMENSION CELU(6),CELW(6> I MPTCC30 

DIMENSION BNGI51) ,PND(51,6) IMPTCC4G 

DIMENSION FACT3(6),ABC(51) IMPT0050 

DIMENSION TFCGUI6 ) , TFCGW ( 6 ) , TALFA ( 6 ) , FAU ( 6 ) ,FAW(6) ,RL< 51) , R S IN ( 5i ) I MPT0060 
*,RCGS<51) ,DELU (6) ,DELW 16 > , PAX < 51, 6 > , HT (5 1 ) ,PN( 51, 6 ) , PO I 51, 6) I MPTCC7C 

DIMENSION TAPI51) IMPT0C80 

COMMON /RA/ BEP(50,3,3,8) ,AL(50) ,AXG(3) ,AWG(3> IMPT0090 

COMMON /TAPE/ MRE AD, MWR I TE , MPUNCH . IMPTOIOO 

COMMON /VQ / FLVA(205),DISP<205),DELD(2C5) ,SNS(5C, 3,6,5) , IMPTOllO 

*BINP(50,3) , SIMP (50,3) ,TDISP( 205), TU<2 05 ),TW( 205) , ‘ I MPTC12C 

*C0IY(2C5)»C0IZ(205),DELTAT IMPT0130 

COMMON/FG/Y (51),Z(51), ANG (51) ,H( 51) , 8 »E XANG ,NS , I K , NOG A ,NFL ,NSF 1 1 I MPT0140 
*N I , IC0L(205),NBC0ND,NBC(4),NQDEB<4) IMPT0150 

COMMON /HM/ YQUNG*DS,C5,C6,ASFL(50,3,6,5),C-ZETA(50,3,6),SNO(5) IMPT0160 
COMMON / FRAG /F HI 6 ) ,FCG( 6 ) ,FMASS(6) ,FMOI ( 6 ) , FCGU ( 6 ) , FCG W (6 ) ,AL FA { 6 ) , I MPT0170 
*UDOT (6),WD0TI6),A00T(6 ) , TPR IM { 6 ) , CR ( 6),FCGX( 6) ,UNK<6) ,NF IMPT0180 

COMMON /DFRAG/0FCGUI6 ) , DFCGW 1 6 ) , D A LFA (6 ) IMPTC19C 

C0MM0N/ENERG/FKI6 ) , Cl NETO ,CUMW ,DE LKE , CEL AS , ELAS i PL ASTC IMPT0200 

C0MM0N/LEFT/P,EPS(5),SIG(5),RMASS(5l) IMPT0210 

I CHECK=0 I MPT0220 

DO '88 1 = 1, NS I MPT0230 

I F C ANG( I ) )89, 87,87 IMPT0240 

BNG ( I )=6.28318530-ANG( I ) I MPT0250 

'GO TO 88 IMPT026Q 

8NG( I ) = DA8S (ANG I I ) ) IMPT0270 

CONTINUE ' I MPT0280 

DO 2 1=1, NS I MPTC290 

DO 2 J= 1 » NF I MPT 0300 

PAX{ I, J)=0.0 I MPT0310 

PN 1 1 » J ) =0 .0 I MPT0320 

PND ( I , J ) =0» 0 I MPT 0330 

PD (IjJ)=O.Q I MPT0340 

IFIEXANG.NE.360.)GO TO 92 I.M.PT0350 

I M=IK+1 I MPT0360 
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92 


11 


12 


13 


DISP(IM*4-3)=DISP(1> 

D I S P ( I M *4—2 ) ~ D I S P (2 ) 

DISP<IM*4-1)=DISP(3) 

D I SP ( IM*4) = DISP<4.) 

DELD( I M*4— 3 )~DELD(1) 

OE LO ( I M*4— 2 )=0ELC(2 ) 

OELD ( IM*4-1)=DELD13) 

DELDUM*4)=0ELD(4) 

COIYC lM)=COIY (1) 

CO I Z( I M ) =COI2 ( 1 } 

DO 11 I = l' f NS 

TD ISP {I *4-3 )-0 ISP ( 1*4-3 ) + DEL0( 1*4-3) 

TDISP ( 1*4-2 >=D I SP 11*4-2 ) + DELD< 1*4-2) 

TU ( I )=CQIY( I ) +TD I SP { 1*4-3 )*DC OS (BNGU ) )+TDISP ( 1*4-2 )*DSIN I BNG < I ) ) 
TW ( I )=CGIZ( I) -TDISP ( 1*4-3 ) *DS IN(BNG( I ) ) + TD I SP ( I *4- 2 ) *DCOS < BNG (I ) ) 
IF(EXAfvG.NE»360.)G0 TO 12 
TDISP( { N S+ 1 ) *4- 3 ) =TD I SP { 1 } 

TD I SP ( (NS+1 )*4-2)=T0ISP{2) 

TUINS+1 )=TU(1) 

TW ( NS+ 1 ) =TW ( 1 ) 

DO 13 1=1, NF 

TFCGU ( I) =FCGU ( I )+DFCGU { I ) * 

TFCGW( I )=FCGW< I )+DFCGW{I> 

TALFAU ) = ALFA( D+OALFAU ) 

FAU { I )-TFCGU{ I ) 

FAWU )=TFCGWl I ) 

DO 15 I — 1 1 T K 
IR- 1 + 1 . 

RLU) = CSGRT(CTUUR-X)-TU( I R ) ) **2+ ITW IIR- 1 )-TW< IR))**2) 

RSINII ) = < T W I I R )-T W ( IR-1)J/RL( I) 

RCOS < I j— ( TU ( I R ) — TU ( IR~1))/RL( I) 

DO 14 J= 1 t.NF 

DELUI J)=TU( IR)-FAU( J) 

DELW{ J )=TW( IR)-FAW( J) 

DIST=DSQRTIDELU ( J )**2+DELW ( J ) **2 ) 

TT PC=(H( IR)+FH( J) ) / 2 . 0 


IMPT0370 
I MPT038Q 
IMPTC39Q 
I MPT 0400 
I KPT 0410 
IMPTC420 
IMPT0430 
I NPT0440 
I MPT 0450 
I KPT 0460 
I KPT 0470 
I NPT048Q 
I MPT 0490 
I MPT05Q0 
IMPT0510 
I MPT C5 20 
I MPT 0530 
I KPT0540 
I MPTC550 
IMPT0560 
I MPT0570 
I MPT058Q 
I MPT 0590 
I KPT0600 
I MPT 0610 
I MP TO 620 
I MPT 0630 . 
I MPT 0640 
I MPT0650 
I MPT 0660 
I MPT0670 
I MPT 0680 
I MPTC690 
I MPT 0700 
I MPT0710 
I MPT0720 
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PND ( I » J 1 =TI PC-DI ST 

IMPT 0730 


PAX { T» J )=RCOS ( I )*DELU( J)+RSIN ( I ) *DELW ( J ) 

IP.PT0740 


IF(PAXU,Jni4»16tlG 

I KPT075Q 

16 

IF(RL(I)-PAX(I ,J) ) 14 » 17, 17 

I MPT 0760 

17 

HT ( I )= H ( I R- 1 ) + { H ( IRI-HUR-I) )*PAX(I,J)/RL( I ) 

INPT0770 


TIP0=HT<I )/2.0 + FH( JJ/2.0 

I MPT 0780 


PN(I t J)=RCQS( I)*DELVi( J)-RSIN( I)*DELU(J> 

1 MPTQ790 


IF(PN( I« J).GT.TIPD)GO TO 14 

I PPT0800 


PD( I* J )=TIPD-PN ( I f J ) 

I MPT0810 

14 

CONTINUE 

I MPTC82C 

15 

CONTINUE 

I MPT0830 


PNDB IG=Q * 0 

IXPT0840 


PDBIG=0.0 

I MPT0850 

30 

DO 23 1 = 1, IK 

I MPT0860 


DO 23 J-lyNF 

I MPT0870 

82 

IF(PD( I,J».LE.RDBIG.OR.PD( I * J ) . EQ . PDB IG ) GO TO 19 

I FPT0880 


PDB IG=PD ( I, J) 

I MPTC890 


IB IG=I 

I MPT09C0 


JBIG=J 

I l?PT0910 

19 

IFIPNDI I, J) •LE.PNDBIG.OR.PNDI I , J ) .EQ . PNDB IG )GO TO 23 

I MPT0920 


PNDBIG=PND(I,J) 

I MPT 0930 


INBIG=I 

I MPT 0940 


NNBIG=I+1 

I MPT095G 

• 

JNBIG= J 

IMPTC960 

23 

CONTINUE 

I MPT0970 


IFIPDBIG.EQ.O.O.AND.PNDBIG.EQ.O.OJGG TO 31 

IKPT0980 


IFIPNDBIG.GT.PDBIG.OR .PNDB IG.EQ.PDEIGIGO TO 77 

IMPT0990 


I PLUS= I B.IG+l 

IMPT1C00 


PQP=RCOSURIG) 

I MPT 10 10 


TGP=RS IN I IB IG ) 

I PPT1020 


PON=DCCS ( BNG( IBIG) ) 

IMPT1C3G 


POX=DCOS(BNG( IPLUS) ) 

i MPT 1C40 


TQM=QS INI BNGI IBIG)) 

I KPT 1050 


TOX=DS INIBNGI IPLUS) ) 

I NPT1C60 


BAT=H( IBIG) -HI IPLUS) 

I MPT1C70 


CAT=2.C*RL( IBIG) 

IMPT1080 
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T A P ( IBIG)=DATAN2{BAT»CAT) IKPT1090 

BETA=PAX( IBIG »JBIG)/RL{ IBIG) IMPT11G0 

GAMA=1 . O-fiETA . IMPT1110 

VFN=DFCGW{J8IG)*P0P-0FCGU(J8IG)*T0P IMPT1120 

VFT = DFCGW (JBIG) *TGP + OFCGU {JBIG )«POP I MPT 1130 

VF N = VFN/DELTAT IMPT1140 

VFT=VFT/DELTAT I MPT 1 150 

VFA=DALFA{J8IG)/0ELTAT IMPT1160 

VNI BIG=DELD(IB IG*4-2 )* ( P0P*P0M-TQP*T0M )-CELC ( I BIG* 4- 3 )*(T0P*P0M+ IMPT117C 
*POP*TOM ) I MPT 1180 

VT IB IG=DELD( IBIG*4~2 ) * ( T0P*P0M+P0P*T0M ) +DELD { I8IG*4- 3) *IPGP*P0M~ I MPT 1190 
*TOP*TOM) IMPTI2C0 

VNIPLS=OELD(I PL US* 4-2 ) * ( POP* P0X-T0P*T OX )- DELD ( I PLUS *4-3 >* (TOP*POX+IMPT 1210 
*PQP*TOX) I MPT 1220 

VTIPLS=DELD (I PLUS*4-2 )* (TOP*POX+POP*T0X ) + D£LD( IPLUS*4-3 )*( P0P*P0X-I MPT 1230 


*TOP*TOX) 

VNI8IG=VNIBIG/DELTAT 
VTI8 IG=VT1BIG/DELTAT 
VNIPLS=VNIPLS/DELTAT 
VT IPLS=VTIPLS/DELTAT 
AINT=VFN-(BETA*VNIB IG+GAMA*VN IPLS ) 


I MPT 1240 
I MPT 1250 
IMPT1260 
IMPT 1270 
I MPT 1280 
IMPT1290 


SI NT=( VFT-VFA*FH( JBIG)/2.0 )-( (BET A*VT IB IG+G AMA*VT IPLS ) + ( HT ( IB I G > / I MPT 1300 
*2. 0*( VNIPLS-VNIBIG) /RL( IBIG) ) ) IMPT1310 

B1=1.0/FMASS( JBIG)+(FH(JBIG)/2.0) **2/FM0I( J8 IG )+8E T A**2/RMAS S ( IBIGIMPT1320 
*) +GAMA**2/RMASS { I PLUS )+(HT ( IBIG)/2.0/RL( IBIG) )**2*( 1 . O/RMASS ( I BIG ) I MPT 1330 
*+1.0/RMASS{ IPLUS) ) IMPT 1340 

B2 = l .0/FMASS( JBIG )+B£TA**2/RMASS( IBIG )+GAMA**2/RMASS ( I PLUS) I MPT 1350 

B3 = (HT( IBIG )/2.0/RL{ IB IG))*( GAMA/ RMASS< I PLUS )-8ET A/RMASS ( IBIG) ) I MPT 1360 
DELTP=PD( IBIG, JBIG) /A I NT IMPT 1370 

IF (UNK(J8IG).Ep.O.O)GO TO 702 IM,PT1380 

IF (UNK (.JBIG ) .EG. 10.0 )G0 TO 703' IMPT1390 

BAT1=B2*SINT-B3*AINT IMPT1400 

BAT2=B1*AINT-B3*SINT IMPT1410 

ANX=CATAN2{BAT1*BAT2) IMPT1420 

TANX=BAT1/BAT2 IMPT1430 

AXY= 1*0 I MPT 1440 
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BNX=DATAN2(UNK ( JBIG), AXY) 


I KPT1450 


CMX=DATAN2{B3*B1) 

I F ( B3. L6 * 0- 0) GC TO 705 

I F { UNK { JB IG ).GT .TANX ) GO TO 707 
PN1=A.I1\T/<B2+UM<{JBIG)*B3) 

A'PN=U.O+CR( JBIG) )*PN1 
APT=UNK< JBIG)*APN 
GG TO 760 

7C7 IF (CNX.LE.BNX)GO TO 708 

PN2=SINT/(UNK( J8IG)*B1+B3) 

PN4 = <AINT-2.0*UNK ( J B IG ) *B3*PN 2 ) / ( B2-UNK ( JB IG )*8 3 ). 
APN= ( I • O + CR C JB IG ) )*PN4 

APT=UNK( JBIG>*( 2.0*PN2-(1.0+CR< JBIG) )*PN4) 

GC TO 760 

7C8 PN3=(B1 ) {'AINTt-83*SINT)/(B1*B2-B3<'*2} 

APN=( I. O+CR ( JBIG) )*PN3 
APT=<S INT-(B3*( 1. O+CR ( JBIG) )*PN3M /B1 
' GO TO 760 

7G5 IF ( UNK( JBIG) ,LE.iTANX)GO TO 706 

PN3MBl*AINT~83*SINT)/(iil*B2-B3**2) 

APN= U.O+CRIJBIG) )*PN3 
APT=(SINT-83*APN)/Bl 
GO TO 760 

706 PN1=AINT/IB2+UNK(JBIG)*B3) 

APN= (L. O+CR (JBIG) )*PN1 
APT=UNK< J8IG)*APN 
GO TO 760 

702 APN={1 .0 + CR(JBIC-) )*AINT/B2 -■ 

AP T=0. 0 

GO TO 760 

703 ETP1=S INT/B1 * 

ETP2=AINT/B3 

IF(ETPl.LE.ETP2.OR.ETP2.LE.C.0)G0 TC 704 
. APN=0.0 
• APT = ETP1 
GO TO 760 


I MPT 1460 
I MPT 1470 
I KPT 1480 
[MPT1490 
IMPT15G0 
IKPT1510 
I KPT 1520 
IMPT 1530 
I KPT 1540 
IMPT1550 
I MPT1560 
IMPT1570 
I KPT 1580 
I MP T 1590 
I MPT 1600 
I KPT 16 10 
I KPT 1620 
IMPT 1630 
I KPT 1640 
I MPT1650 
I KPT 1660 
1 MPT 1670 
I KPT1680 
IMPT1690. 
I MPT 1700 
IMPT1710 
I MPT172C 
I MPT 1730 
I KPT 1740 
I MPT1750 
IMPT 1760 
IMP!" 1770 
I KPT 1780 
I MPT 1790 
IMPT 1800 
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704 

760 


513 


263 

25 


PN, 3 = I B 1*A INT-B3*S INT ) / ( 81*6 2-0 3**2) 
APN={1.0+CR(JBIG) ) *PN3 
APT=(SINT~(B3*(1.0+CRI J8IG) )*PN3) )/Bl 
CONTINUE 


I MPT 1810 
I MPT1820 
IMPT 1830 
I MPT 1840 


FACT 1N= ( BET A*RL ( I BIG ) *APN- 1 HT ( IB I G ) / 2 . 0*A PT ) ) / IRMA SSI I B IG ) *RL I IB IGI KPT1850 


*) ) 


I MPT 1860 
IMPT 1870 

<GAMA*RL { IBIG)*APN+<RT{ IB I G > / 2 . 0*APT ) ) / ( RMAS S I I PLUS) *RL (I B 1 1 MPT 1880 

I MPT 1890 


FACT1T=(BETA*APT)/RMASS! IB IG > 

FACT2N 
*G) ) 

FACT2T= (GAMA* APT) /RM ASS II PL US) 

FACTFN=-1.0*APN/FMASS{ JBIG) 

FACTFT=-1.0*APT/FKASS (JBIG) 

FACTFO=APT*FHI JBIGI/FMOI ( JBIG)/ 2.0 

DFCGUI,JBIG)=DFCGU< JB I G ) -DEL TP* ( FACTFN*TC P-FACTFT*POP ) 

DFCGW I j B IG ) = DFCGW I JBIG )-DE LT P* ( - 1 . 0*F ACTFN*POP-FACTF T* TOP ) 
DALFA( JBIG) =0 ALFA I JBIG ) + DELT P*FACT FQ 


IMPT 1500 
I MPT 19 10 
I MPT 1920 
I MPT 1930 
I MPT 1940 
I MPT1950 
I MPT 1960 


DELDI IBIG*4-3)=DELDI IB IG*4-3 ) +DELTP* I - 1. C*FACT IN* ( TC M*PCP+POM*TGP ) I MPT 1970 
*+FACTlT*{POM*POP-TOM*TOP) ) IMPT1980 

DELD(IBIG*4-2) = DEL0(IB IG*4-2 )+DELTP*IFACTlN*( PGM*PGP~TOM*TOP ) I MPT 1990 

*+FACTlT*ITOM* POP+PGM*TOP) ) IMPT2000 

DELD ( IBIG*4-3)=DEL0{ IBIG*4-3) *DCOSI TAPI IBIG) )-DELD { IBIG*4-2 )*DSIN ( I MPT2C10 


*TAP I IBIG ) ) 

DELD(I8IG*4-2) =DELD 1 1 B IG*4-3 ) *DS I N I TA P I 18 IG) J+DELD I IBIG*4-2)* 
*DCOS (TAPI IBIG) ) 

DELD t I PLUS*4-3)=CELCI I PLUS *4-3 ) +D ELTP * I- 1 . 0*FACT 2N *1 TOX*PGP+POX* 
*T0P)+FACT2T*I POX*PGP-TGX*TCP ) ) 

OELDI IPLUS*4-2)=DELDI I PLUS*4-2 ) +DELTP* I F ACT2N* { POX*PCP-TOX*TGP ) 
*+FACT2T*(T0X*P0P+P0X*TCP) ) 

OELDI IPLUS*4-3)=DELD( l PLUS *4-3 )*DCGSITAP!I8IG) )-CELC( IPLUS*4-2) 
**DSIN(TAP(IBIG)) 

DELD I IPLUS*4-2)=DELDUPLUS*4-3)*DSIN(TAP( IBIG) )+DELD( IPLUS*4-2)* 
*DCGS(T APIIBIG) ) 

WRITE! MWR I TE» 25) IT» IBIG, JBIG, PAX ( IBIG»JBIG) , PC ( IBIG»JBIG) 

FORMAT ( 10X, *IMPACT IT= * , 1 5 » 3X , 'ELEMENT NO. = » , I 5 , 3 X , • FRAGMEN T NO. 
* = * »I5,/»10X,' LOCATION CN ELEMENT - • ,D 15 .6 , 3X , ' PENETR AT ION 
*015.6,/) 


IMPT2C20 
I MPT 2030 
I MPT 2040 
I MPT 2 C 50 
I MPT2G60 
I MPT2070 
I MPT2C80 
I MPT 2090 
IMPT2100 
I MPT2110 
IMPT2120 
IMPT2130 
I MPT2140 
DIST = ' , I MPT2150 
IMPT 2160 
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PDBIG=0.0 
PDUBIGt JBIG)=0.0 
GO TO 30 

CMU=TU(NNBIG)-TFCGU( JNBIG) 

CMW=TW{NNBIG)-TFCGW (JNBIG) 

SOI ST=0$QRT(CMU**2 + CMW*#2 j 
S IN A=CMW/SD 1ST 
CO$A=CNU/SDIST 
AND=DCCS(BNG(NNBIG) )*C0SA 
ANC=DSIN( BNG( NNBIG ) )*SINA 
ANB=DSIN(BNG(NNBIG))*COSA 
ANA=OCCS(BNG(NNBIG) )*SINA 

VY1 = (DEL0(NNBIG*4-2)*RSINUNBIG) + DELC (NNB IG*4-3 ) #RCCS ( INBIG) )/ 
♦DELT AT 

VZl= ( DE LD ( NNB IG*4-2 )*RCOS ( INB IG)-CELO (NNB IG*4-3 ) *R S INC INBIG) ) / 
♦DEL TAT 

VRT=VZ1*C0SA-VY1*SINA . 

VRN=V'Z1*SINA+VY1*C0SA 

VFT=(DFCGU( JNBIG)*SINA4DFCGW( JNBIG)*COSA)/CELTAT 
VFN=(DFCGU( JNBIG )*COSA-DFCGW( JNBIG ) *S I NA ) /CELT AT 
VFA=DALFA(JNBIG)/DELTAT 
SINT=(VFT-VFA*FH( JNBIG )/2.0)~VRT 
A I NT = VFN-VRN 

Bl = l »0/FMASS{ JNBIG ) + (FH( JNBIG) /2 . 0 )** 2/FNO I { JNBIG) + 1.0/RMASS (NNB : 
♦ ) 

B2 = l-0/FNASS( JNBIG )+1.0/RNASS (NNB, IG) 

TANN=(B2*SINT)/(8I*AINT) 

IF(UNK(JNBIG) .EQ.O.OIGO TO 735 
IF (UNK ( JNBIG) .EC. 10.0)60 TO 736 
IF (UNK( JNBIG) .GT.TANNJGO TO 737 
PNI=AINT/B2 

APN»(1.0+CR (JNBIG) >*PN1 
APT=UNK( JNBIG)*APN 
GO TO 740 

PN3=(B1*AINT)/ <B1*B2) 

APN=(1.0+CR( JNBIG )')*PN3 
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APT=S I NT/B 1 
GO TO 740 

735 APN=(1.0+CR( JN8IG) )*AINT/B2 
APT=0 . 6 

GO TC 740 

736 PN3=Bl#AINT/Bl/82 . 

APN= ( 1 . O+CR (JNBIG) ) # PN3 
APT=SINT/81 

740 CONTINUE 

FACTNN=APN/RMASS(NNBIG) 

FACTNT=APT/RMASS(NNBIG) 

F ACT FN=APN/FM ASS (JNBIG) 

FACTFT=APT/FMASS (JNBIG) 

FACTFO=APT*FH( JNBIG )/2.0/FN0 I (JNBIG) 

DELTP=PNO( INB IGi JNB IG ) /AINT 

DFCGU ( JNB IG)=DFCGU (JNBIG) +CELTP* ( -1 .0*FACTFN*CO SA+FACTFT*S INA ) 
DFCGW(JNBIG)=DFCGW(JNBIG)+CELTP*(-1.0*FACTFN*S IN A-FACTFT*COSA ) 
DALFA< JNBIG )=D ALFA ( JNBIG ) +DELTP*F ACTFO 

DELD(NNBIG*A-3) = DELb{NNBIG*4-3)+DELTP=MF,ACTNN*( AND-ANC ) +FACTNT* 
*( AN6+ANA) ) 

DELD(NN8IG*4-2 ) =DELD ( NNBIG*4-2 )+DELTP* ( FACTN’N# (ANB + A.NA ) -FAC TNT* 
* ( AND-ANC ) ) 

463 WRITE! MWRITE»201)IT»NNEIGtJNBIG.»PND(IN8IGtJNBIG) 

201 FORMAT ( /» ' IMPACT IT = ',15,' NODE NO. =',I5,* FRAG NO = 

*» I5f * PD =• ,015.6 ) 

PNDB IG=0«0 

PND(INBIG,JNBIG)=O.C 
GO TO 30 
31 RETURN 
END 


I MPT2530 
I MPT2540 
I MPT 2550 
I MPT 2560 
I MPT257Q 
I MPT2580 
IMPT2590 
IMPT2600 
I MPT2610 
I MPT262G 
IMPT2630 
IMPT2640 
I MPT2650 
I MPT 2660 
I MPT2670 
I MPT2680 
I MPT 2690 
I MPT 2700 
I MPT 27 10 
IMPT2720 
IMPT2730 
I MPT2740 
I MP T 2 750 
' IMPT 2760 
I MPT2770 
I MPT278C 
I MPT 2790 
I MPT2800 
I MPT2810 
IMPT2820 
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SUBROUTINE M I NV { A , N, OET, L , M ) 
IMPLICIT REAL*8<A-H,d-Z) . 

C 

C SEARCH FOR LARGEST ..ELEMENT. 

C . 

DIMENSION A( 1),L<1),M(1) 

DET=1.0 
NK=-N ' 

DO 80 K=1,N 

NK=NK+N 

L { K ) =K 

M(K)=K 

KK=NK+K 

BIGA=A,(KK>. 

00 20 J = K,N 
IZ=N*( J-l) 

DO .20 I=K,N 
IJ=IZ+I 

10 IF(DABS(RIGA)-DABS(A( IJ) ) >15,20,20 
15 B IGA=A ( I J ) 

L { K )= I 

M ( K ) = J 

20 CONTINUE ■ 

C 

C INTERCHANGE ROWS 

C 

- J = L ( K ) 

IF(J-K) 35,35,25 
25 K I = K-N 

DO 30 1 = 1, N' 

K I = K I + N . 

HOLD=-A(.KI) 

, Jl=KI-K+J 
A(KI )=A( JI) 

30 A ( J I ) =HQLD 

C INTERCHANGE COLUMNS 


MINVCC1C 
MINV0C2O 
M INV0030 
MINVCC40 
MINVCC50 
M INV0060 
MINV0070 
MINVGC80 
MINVC090 
MINV0100 
MINV0110 
MINV0120 
M INV0130 
MINV0140 
‘MINVC150 
M INV0160 
MINV0170 
MINV0180 
MINV0190 
M INV0200 
MINV0210 
MINVC220 
MINV0230 
MINV0240 
MINVC250 
M INV0260 
MINV0270 
MINVC280 
M INVC290 
MINV0300 
MINV0310 
MINV0320 
MINV0330 
MINV0340 
MINV0350 
MINV0360 



n n o o o o o 


C 


35 

I = M < K ) ■ 

M INV0370 
MINV038.0 


IF(I-K) 45,45,38 

M INVC390 

38 

JP = N*U-1) 

M INV0400 


DO 40 J= I , N 

MINV0410 


JK=NK+J 

MINV0420 


JI=JP+J 

MINV0430 


HOLD=— A ( JK ) 

MINV0440 


A ( JK )= A ( J I ) 

MINV0450 

40 

A ( JI ) =HCLD 

MINV0460 



MINV0470 


DIVIDE COLUMN BYMINUS PIVOT (VALUE OF PIVOT ELEMENT IS 

M INV0480 


CONTAINED IN BIG A) 

MINVC490 



M INV0500 

45 

IF(BIGA) 48,46,48 

MINV0510 

46 

DET=0.C 

MINV0520 


RETURN 

MINVC530 

48 

DO 55 1=1, N 

MINV0540 


IF(I-K) 50,55,50 

MINV0550 

50 

I K=NK+ I 

MI NVC560 


■ A ( IK)=A(TK)/(-BIGA) 

MINV0570 

55 

CONT INUE 

MINV0580 



MINVC590 


REDUCE MATRIX 

MINV0600 


DO 65 1 = 1, N 

MINV0610 

MINV0620 


I K = N K + I 

MINVC630 


HOLD=A( IK) 

M INV0640 


I J= I-N 

M INV0650 


•DO 65 J= 1 , N 

MINV0660 


I J=I J+N 

M INVC670 


IF(I-K) 60,65,60 

MINV0680 

60 

IF(J-K) 62,65,62 

MINV0690 

62 

KJ=I J-I.+ K 

MINV07G0 


A ( I J)=HOLD*A(KJ)+A(IJ> 

MINV0710 

65 

CONTINUE 

MINV0720 



no o ooo ooo non 



DIVIDE ROW BY PIVOT 

M INVC730 
MINV074C 



MINV0750 


KJ=K-N 

MINV0760 


DO 75 J*1,N 

MINVC77C 


K J=K J+N 

M INV0780 


IF(J-K) 70,75,70 

MINV0790 

70 

A<KJ)=A(KJ)/BIGA 

MINVC8C0 

75 

CONTINUE 

MINV0810 


PRODUCT OF PIVOTS 

MINV0820 

MINV0830 


DET=DET*BIGA 

MINVG84C 

MINV0850 


REPLACE PIVOT BY RECIPROCAL 

MINV0860 

MINV0870 


A(KK)=1.C/B IGA 

M1NV0880 
M INV0890 

80 

CGNTINUE 

MINVC90Q 


■ 

MINVG910 


FINAL ROW AND COLUMN INTERCHANGE 

MINV0920 


M INV0930 


K=N 

MINV0940 

ICO 

K=(K— 1) 

MINVC950 


I F { K ) 150,150tlG5 

M INV 0960 

105 

I=L(K) 

M INV0970 


IF(I-K) 120,120,108 

MINV0980 

1C8 

JQ=N*(K-1) 

M INV0990 


JR=N*( 1-1) 

M INV 1000 


DO 110 J = 1 » N 

MINV1C 10 


JK= JQ+ J 

MINV1C20 


HOLD=A ( JK ) 

M INV1030 


J 1 = JR + J 

MINV1C40 


A(JK)=-MJI) 

MINV1C50 

110 

A(JI) =HOLD 

MINV1C60 

120 

J = M ( K > 

M INV 1070 


IF(J-K) 100,100,125 

MINV1C8C 
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125 

K I =K-N 

MINV1C90 


DO 130 1=1 » N 

MINV1100 


K I =K I +N 

MINVU10 


HO LD= A I K T > 

MINV1120 


JI =KI-K+J 

MINV1130 


A ( K I )=-A { J I ) 

N I NV1 140 

l 30 

MJI) =HQLD 

MINV1150 


GC TC ICO ' ■ 

MINV1160 

150 

RETURN. 

M INV 1170 


END 

MINVll 80 
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SUBROUTINE OMULT (SQVCT, RWVCT, NCOL ,NROWS, ACC,KROW, NDEXtNIRREG ) 
IMPLICIT REAL* 8 ( A— H , 0-Z ) 

C TO FIND ACC OF { SQVCT ) *1 RWVC T )= ( ACC ) 

DIMENSION SQVCT(1),RWVCT(1), NCOL (1 ) » ACC ( I ) » KROW ( 1 ) , NDEX ( 1) 

1 NDEX=C 
NROWM=NROWS-l 

IF (NIRREG .GT. 0) GO TO .200 
C HIGH SPEED PRODUCT FOR. REGULAR MATRICES 

DO IOC NN= 1 , NROWM 
SUM=0 *0 
I PI=NN+ l 
K ST=NCOL ( NN) 

INDEX= INDEX+NN-KST 
DO 101 KPL=KST,NN 
I J= I NDEX+KPL 

101 SUM=SUM+ SQVCT (IJ)*RWVCT(KPL) 

C ‘ NOW FOR THE COLUMN ELEMENTS 

JNDEX=IJ 

DO 102 KPL=I P1,NR0WS 
IFINN.LT. NCOL(KPL) )G0 TO ICO 
J NO EX=J NDEX+KPL- NCOLIKPL ) 

102 SUM=SUM+SQVCT(JNDEX)*RWVCT(KPL) 

100 ACC(NN)=ACC(NN)+SUM 

C NOW FOR THE LAST ROW 

104 KADD=NCCL( NRCWS ) 

SUM=0. 0 

INDEX= INDEX.+NROWS-KAOD 
DO 103 KPL=KADD,NROWS 
I J-I NDEX+KPL 

103 SUM=SUM+ SQVCT ( IJ)*RWVCT(KPL) 

. ACC (NRCWS )=ACC (NROWS )+SUM 

RETURN 

C MEDIUM SPEED PRODUCT FOR NIRREG .LE. NRCWS/2 

200 IF (NIRREG .GT. NROWS/2) GO TO 201 
00 105 NN=1, NROWM 
I P1=NN+ 1 


0MLT0C10 
OMLT0020 
GMLT0C30 
0MLTCC40 
0MLT0C50 
0 ML TO 060 
0MLTC070 
OMLTCC80 
OMLT0090 
0MLT0100 
0MLTC11C 
0MLT0120' 
0MLT0130 
' OMLT0140 
OMLTClsO 
OMLT0160 
OMLT0170 
0MLT0180 
0MLT0190 
0NLT0200 
OMLT0210 
OMLT0220 
0M.LT0230 
OMLT0240 
QMLT0250 
0MLT0260 
OMLT0270 
OMLT0280 
. 0MLTC29C 
OMLT0300 
0MLT0310 
OMLTC320 
OMLT0330 
0MLT034O 
OMLT0350 
OMLT0360 



h8L 


KST=NCOL(NN) 

INDEX=INDEX+NN-KST 

SUM=0.0 

00 106 KPL=KST »NN 

1 J= INDEX+KPL 

1C6 $UM = SUM+ SQVCT ( I J )*RWVCT ( KPL ) 

NCK = 0 

■ JN0EX=IJ 

107 DO 108 KPL= I P ltNRQWS 

I F ( N N . LT. NCCL ( KPL ) ) GO TO 109 
JNDEX=JND£ X+KPL-NCOL ( KPL ) 

108 SUM=SUM+SQVCT ( JNDEX ) *RWVCT < KPL > 

GO TO 105 ' 

109 NCK=NCK+1 

IF { NCK .GT.NIRREG) GO TO 105 
IF (KPL .GE. K ROW ( NCK ) ) GO TO 109 
IPl = KR0UMNCK) 

JNDEX=NDEX(NOK)+NN 
GO TO 107 

1C5 ACC<NM = ACC(NN) + SUM 
GO TO 104 • 

201 • 'DO 503 NN= 1* NROWM 

I PI = NN+ 1 
K=NCOL(NN) 

I ND EX = INDEX+N'N-K 
SUM=0.0 

DO 502 KRX=K t NN 
I J.= INDEX+KRX 

502 SUM=SUM + SQVCTUJ)*RWVCT(KRX) 

JNDEX= I J 

DO 504 KRX=I P 1 yNROWS 
" K = NCOL ( KRX ) ■ 

JNDEX=JNOEX+KRX-K 
IF (NK .LT. K) GC TO 504 
SUM= SUM+SQ VC T ( JNDEX ) *RWVCT ( KRX ) 
504 CONTINUE ■ 


0PLT0370 

OMLT0380 

OMLTG390 

OMLT0400 

0KLT0410 

OMLT0420 

0 ML T 0430 

0MLT0440 

OMLT0450 

OMLT0460 

0MLT0470 

0MLT0480 

OMLT0490 

0MLT05Q0 

0NLT0510 

OMLTC520 

OMLT0530 

0MLT054O 

0KLT0550 

OMLT0560 

0MLT0570 

OKLT0580 

OMLTC59C 

0MLT06C0 

0MLT0610 

OMLT0620 

0MLT0630 

OMLT0640 

0>Lt0650 

QKLT0660 

OML.T 0670 

0MLT0680 

OMLTC690 

OMLTC7CO 

0MLT0710 

0 ML T 07 20 



0MLTC73G 

0MLT0740 

OPLT0750 


5C3 AGC(KN)=ACC(NK)+SUy . 
GO TO' 104 
END 
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00 
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SUBROUTINE PRINK IT, TIME, HHALF ) 

IMPLICIT REAL*8( A-H,0-Z> 

DIMENSION HHALF I 50 ) 

DIMENSION CGPY<51),COPZ(51),FAILI( 51 ) , FA ILC { 51 ) 

COMMON /VQ/ FLVA(205),DISP<2G5),DELD<205),SNS<50,3,6,5), 
*BINP(50,3) , BIMPI5G, 3 ) , TDISP ( 2C5 ) ,TU (205 ) ,TW(205), 

*C0IY(205) ,C0IZ(2G5),DELTAT 

CCMM0N/FG/Y(51),Z(51 ) , ANGI 5 1 ) , H ( 51) , B , EXANG , NS , I K, NOGA, NFL , NSFL, 
*NI f ICOL ( 205 ) , NBCONO* NBC(4)*NQDE8(4) 

COMMON /HM/ YCUNG,DS,C5,C6,ASFL(5G,3,fct5) ? G2ETA(50t3 t 6>,SN0(5) 
COMMON /BA/ BEP(50»3f3t8),AL(5G)fAXGC3)»AHG{3) 
CCMMON/SC/CRITS»EIG,BTIME,MCRIT, IB IG, I SURF 

CCMMGN/FRAG/FHI6J ,FCG<6> ,FMASS<6) ,FMOI (6) ,FCGUI6) ,FCGW(6 ) » A L F A ( 6 ) 
*UDQT<6) ,WD0T(6) ,ADCT,(6) ,TPRIM{6),CRC6) , FCGXt 6 > ,UNK ( 6 ) ,NF 
COMMON /DFRAG/CFCGU ( 6 ) ,DFCGW ( 6 ) , DALFA ( 6 ) 

COMMON /TAPE/ MREAD , MWR I TE , MPUNCH 
CCMMON /EP/ EPS I ( 50 ) » EPSO (50 ) 

DATA ASTER/' *'/» BLANK/* */ 

S IN ( Q ) = DS IN ( Q ) 

COS(Q)=OCOS(Q) 

ATANI Q) =DATAN ( Q ) 

ABS(Q)=DABS(Q) 

SORT (Q)=DSQRT ( G ) 

DO 11 1=1, NS 

COPY! I )=Y{n+CI$P(I*4~3]*CCS(ANG(I J >-C ISP 11*4-2 » *S IN ( ANG ( I ) ) 
C0PZm=Z{I)+DISP(I*4-3)*SIN(ANGm )+OI$P{I : *4'*2)*COS{ANGI I ) ) 
WPITE(MWRITE,1) IT, TIME 

FORMAT (///»• J= ' ,15,' TIME=' »D12*5) 

WRITE ( MWR IT Et2) 

FORMAT ( / , * I , t5X» , V , ,llXf*W , ,9Xf , PSI , ,9Xt , CHI', 10X* 1 COPY* , 

J 4'8Xf , C0PZ , ,9X, , L'tllXf , M*,7Xf , STRAIN(IN)**4X,' STRAIN ( GUT ) * ) 
IFIMCRIT .C-T. 0) GO TO 50 
DO 51 1=1, IK 
FAILII I ) = BLANK 
FAILOI I )=BLANK 

IF ( EP SI ( I ) .LT. CRITS) GO TO 52 


PRIN0010 
PRIN0020 
PRIN0030 
PRIN0040 
PRIN0050 
PRIN0G60 
PRIN0070 
PRIN0080 
PRIN0090 
PRIN0100 
PRINO 1 10 
PR I NO 120 
, PR INO 130 
PRINO 140 
PR I NO 142 
PR INO 150 
PRIN0155 
PRINO 160 
PRIN0170 
PRIN0180 
PRIN0190 
PRIN0200 
PRIN0210 
PRIN0220 
PRINO, 230 
PRIN0240 
PRIN0250 
PRIN0260 
PRIN0500 
PRIN0510 
PRIN0520 
PRIN0530 
PRIN0540 
PRIN0550 
PRIN0560 
PRIN0570 



H 

00 

00 


FAIL I ( I ) = ASTER 

IF ( MCRIT .GT. 0) GO TO 52 

MCR IT=1 

! IF(EPSO(I) .LT CRITS ) GO TO 51 

FAILOU )=ASTER 
IFCMCRIT ;GT. 0) GO TO 51 
MCRIT- l 

L CONTINUE 

IF (MCRIT .LE. 0) GO TO 50 
00 53 1=1, IK 

i WRITE (MWRITE, 54) I,OISP( 1*4-3 )., DISP ( I *4-2 ) , 0 1 SPI 1*4-1) ,01 SPCI*4) , 

♦COPY ( I ) , CQPZ ( I ) » B INP( 1 ,2 ) , B IMP ( I » 2 ) * EP SI ( I ) , FA IL I ( I ) » 
*EPSO(I)tFAILO( I) 

IF(EXANG.EG.36C.)G0 TO 932 
I KP 1= IK + 1 

WRITE (MWRITE, 22) IKP1,D ISP (IKP 1*4-3 ),DISP( IKP 1*4-2 ), DISP (IKP 1*4-1 ) , 
*DISP( IK*4),C0PY( IKP1),C0PZ(IKP1) 

! WRITE (MWR ITE»55)AST£R 

> F0RMATU5, 9012.4, A2,D12.4, A2 ) 

WRITE (MWR ITS, 55 ) ASTER 

> FORMAT (//, 5X» A2, * STRAIN EXCEEDS THE CRITICAL VALUE*) 

GO TO 189 

) CO 21 I=1,IK 

L . WRITE (MWRITE, 22) I , DI SP U*4-3 ) , CIS P (1*4-2 ) ,D ISPU *4-1 ) ,0 ISP ( I *4 ) , 

*C0PYU),C0PZ(I),8INP( I,2),BIMP(I,2) ,EPSI(I) , EFSO(I) 
IF(EXANG,EQ.360.)GG TO 189 

> FORMAT (15, 9012. 4, 2X, 012. 4) 

IKP1=IK+1 

WRITE (MWRITE, 22) IKP1, 0 IS P ( IKPl*4-3 ), D ISP ( IKP 1*4-2 ) ,01 $P IIK P 1*4-1 ) 
*,DISP(IKP1*4),C0PY(IKP1),C0PZ(IKP1) 

? WPITE(M WRITE, 35) 

35 FORMAT ( 10 X, * FRAG NC.= ' ,5X , ' FCGU =*,9X,'FCGW =»,9X,*ALFA =',9X, 

* * FRUV = * , 9X , * FRWV = «,9X**FRAV =',/) 

DO 36 1=1, NF 

FRUV= DFCGUII )/DELTAT 

FRWV= DFCGW( I )/DELTAT I 
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FRA V= DALFA( D/DELTAT PRIN0906 

36 WRITE (MWRITE»37) I , FCGU C I ) ,FC6W ( I) , ALFA (I ) ,FRL V f FRWV ,FRAV PRINCmO 

37 FORMAT! 10X, 1 5 , 3X,6D1 5 .6 ,/ ) PRIN0920 

RETURN PRIN0930 

END PRIN0940 



G6T 


C 


2 


SUBROUTINE QREM ( AA, Alt AXG, AWG) 


GREMUU 1U 


IMPLICIT RE AL *8 ( A-H »0-Z > 

TC FIND EFFECTIVE STIFFNESS MATRIX' DUE TO ELASTIC RESTRAINTS 
DIMENSION AM 50, 8, 8) ,AL<1) , AXGU ), A WG ( 1 > , BNG < 51 ) 
*,ELR(8,8),ELRR(8,8),ELRP( 8,8) 

CCNNGN/FG/Y(51) »Z(51) ,ANGI51) , H ( 5 1 ) , B , EX ANG ,NS , IK ,NCGA ,NFL ,N SFL , 
*NI f I COL (205) ,NBC0ND,N6C(4) , NODES (4 ) 

COMMON/GLFU/SPR IN ( 206 0 ) ,FQREF(205) ,REX{ A) , NCR , NORP t NGRU ,NREL 14) , 
#NRST (4),NREU(4) 

COMMON /TAPE/ MR E AD, MWR IT E , M PUNC F 
SIN{Q)=DSIN(Q> 

COS (Q)=CC0S <Q) 

ATAN(Q)“DATAN(C> 

AB S ( Q ) =DABS ( Q ) 

SORT ( Q )=DSQRT ( Q ) 

IF ( NCRP .EG. 0) GO TC 1 - 

READIMREAD, 2) SCTP,SCTY tSCRP, ( NREL (I) , REX{ I ), 1=1, NORP ) 

FORMAT (30 15.6/ ( 4( 15, D 15.6) ) ) 

WRITE(MWRITE»777)SCTP,SCTY,SCRP 
DO 10 I Q=1 ,NORP 
SL=REX ( 10) 

NE=NREL(IQ) 

P5=Z(NG+1)-Z(NE) 

P6=Y(NE+1)-Y(NE) 

P7=ANG(NE+1)-ANG(NE) 

APHA=ATANI P5/P6) 

IFIP6.LT. 0.0 .AND. P5.LT.G.0) APHA=APHA-3 . 14 159 265 
IFIP6.LT. 0.0 .AND. P5.GE.C.0) APHA=APHA+3. 14159265 
BNG(NE + 1) = ANG(NE + 1 ) 

BNGINE)=ANG(NE) 

I F< P7.GT. (4.7124) .AND. APHA.LT. 0.0) BNG ( NE+ 1 ) = ANG (NE+1 ) -6. 283 18 53 
IF (P7.GT. (4.7124) .AND. APHA.GT. 0.0 ) BNGt.NE )=ANG(NE ) + 6. 2831853 
IF ( P7.LT. (-4.7124) .AND. APHA.GT. 0.0) BNG ( NE + 1 ) = ANG ( NE + 1 ) + 6 . 2 8 3 1 8 53 
IF (P7.LT. (-4. 7124) . AND. APHA . LT. 0. 0 ) BNG { NE ) = ANG ( NE ) -6 . 28 3 1853 
BZER=BNG(NE)-APHA 

B1=(-2.*BNG(NE+1 )-4 .*ENG ( NE ) +6.*APHA )/AL ( NE ) 


QREMOC20 
QREMCC30 
QREM0C40 
QREM0050 
QREM0C60 
QREM0070 
QREM0080 
QREMC090 
QREMO ICO 
QREMOllO 
QREM0120 
QREMC130 
QREM0140 
QREM0150 
QREM0160 
QREMO 170 
• QREMO 180 
QREMO 190 
QREM0200 
QREM0210 
QREM0220 
QREM0230 
QREM0240 
QREMC250 
QREMC26C 
QREM0270 
QREM0280 
QREMC29C 
QREM03G0 
QREM0310 
QREM0320 
QREMC330 
QREMO 340 
QREM0350 
QREMC36C 



8 2=( 3.*BNG CNE+1I+3.*BNG(NE)-6.*APHA ) /AL ( NE ) **2 

PHI=8Z£R+B1*SL+B2*SL**2 

PHIP=B1+2„*B2*SL 

YZET=G. 0 

ZZET=G . 0 

DO 104 JJ= l t NOGA 

P2=BZER+B1*SL*AXG( JJ ) +82* ( SL*AXG < J J ) )**2+APHA 
YZET=YZET+C0S(P2 )*SL*AWG( j J} 

104 ZZET=ZZET + SIN(P2)*SL*AVIG(JJ) 

P3=YZET*SIN( PHI + APHA)~ZZET*COS('PHI + APHA ) 
P4=YZET*C0S( PHI + APHA ) + ZZET*S I N ( PH I +A PHA ) 

ELR(lt 1 )=SCTP*CGS (PHI ) **2+SCTY*S IN ( PH I > **2 
E LR {2 » 1 ) = (SCTP-SCTY )*COS <PHI)*S IN (PHI > . 

ELR (3, 1)=P3*C0S (PHI ) * SCTP-P4*S IN { PH I).*SCTY 
ELR(4, 1)=SL*C0S(PHI ) *SCTP 
ELR(5 ,1 )=-SL**2*SlN(PHI )*SCTY 
ELR(6»1)=— SL**3*SIN(PHI)*SCTY 
ELR { 7 » l> = SL**2*C0S{PHn*SCTP 
ELR(8 »1)=SL**3*C0S(PHI >*SCTP 
ELR (2,2)=SCTP*SIN<PHI)**2+SCTY*C0S (PHI )**2 
ELR (3, 2)=P3*SIN(PHI ) *SCTP + P4*C0S (PHI )*SCTY 
ELR(.4,2 >=SL*S IN(PHI)*SCTP 
ELR(5,2)=SL**2*C0S (PHI J*SCTY 
ELR( 6, 2)=SL**3*CGS(PHI)*SCTY 
ELR(7,2>=SL**2*SIN(PHI)*SCTP 
ELR(8 »2)=SL**3*S IN (PHI)*SCTP 
ELR( 3, 3>=P3**2*SCTP+P4**2*SCTY+SCRP 
ELR(4, 3>=P3*SL*SCTP+SL*PHIP*SCRP 
ELR (5 t3)=P4*SL**2*SCTY+2.*SL*SCRP 
ELR( 6, 3 )=P4*SL**3*SCTY+3.*SL**2*SCRP 
ELR (7, 3 >=( P3*SCTP+PHIP*SCRP>*SL**2 
ELR(8,3)=(P3*SCTP+PHIP*SCRP)*SL**3 
E LR { 4 » 4 ) = ( SCTP+PHIP**2*SCRP)*SL**2 
ELR (5,4)=2.*SL**2*PHIP*SCRP 
ELR(6,4)=3.*SL**3*PHIP*SCRP 
ELR (7,4)=( SCTP + PHIP**2*SCRP >*SL**3 


QREM0370 

QREM0380 

QRENC390 

QREM0400 

QREM04LO 

QREM0420 

QREMC430 

QREM0440 

QREM0450 

QREMC460 

QREM0470 

QREM0480 

QREMC490 

QREH05C0 

QREM05IO 

QREMC520 

QREM0530 

QREH0540 

QREM0550 

QREM0560 

QREM0570 

QREM0580 

QREMC590 

QREM0600 

QREM0610 

QREMC620 

QREM0630 

QREN0640 

QREM0650 

QREM0660 

QREM0670 

QREM0680 

QREM0690 

QREM0700 

QREH071O 

QREMC720 



192 


12 

13 

14 

10 

1 

3 

83 

777 


E LR { 8, 4> = ( SCTP+PHIP**2*SCRP)*SL**4 
ELR(5»5)=SL**4*SCTY+4. *SL#*2’5'SCRP . 
ELR(6,5)=SL**5*SCTY+6.*SL**3*SCRP 
E LR ( 7» 5 ) = 2 .4SL4434PHI P*S0RP 
ELR(8,5)=2.*SL**4*PHIP*SCRP 
ELR (6,6 )=SL**6*SCTY+9.*SL**4*SCRP 
ELR( 7,6)=3.*SL**4*PHIP*$CRP 
ELR(8,6)=3.*SL**5#PHI P*SCRP 
ELR (7 ,7 )={SCTP+PHIP**2*SCRP)*SL**4 
ELR(8,7>=< SCTP+PHIP**2*SCRP)*SL**5 
ELR (8, 8 ) = ( SCTP+PHIP**2*SCRP)*SL**6 
DO 12 .1 = 1,7 
IP1=I+1 
DO 12 J= I P 1 , 8 
ELR{I, J)~ELR( J, I) 

DO 13 1=1,8 
■DO 13 J= 1, 8 
ELRR { I,J) = 0.0 
DO 13 K=l,8 

ELRR ( I , J) = ELRR( I,J) + ELR(I ,K ) *AA( NE, K , J ) 

DO 14 1 = 1,8 
DO 14 J= 1 » 8 
ELRP ( I, J)=0. 0 
00 14 K= 1,8 

ELRP{ I»J) = ELRP(I»J) + AA(NE»K» I)*ELRR(K,J) 

CALL ASSEM(N£,ELRP,SPRIN) ‘ . . 

CONTINUE 

I F ( NORU .EQ . 0 ) GO TO 4 

RE AD ( MREAD » 3 ) SCTU,SCRU, ( NRST (I) , NREU ( I ) ,1=1, NORU) 
F0RMAT<2E15.6,8I5) 

RE AD (MREAD, 83) SCTW, (NRST l I > ,NREU< I ) ,I=1,N0RU) 

FORMAT (015.6,815) 

WRITE(M WRITE, 777) SCTU , SCTW , SCRU 


Q REM 07 30 
QREM0740 
QREMC75C 
QREM0760 
QREM0770 
QREM0780 
QREM0790 
QREM0800 
QREMC810 
QREM0820 
GREM0830 
QREM0840 
<3R£M0850 
QREM0860 
QREM0870 
QREMC88C 
QREM0890 
QREM0900 
QREM0910 
QREM0920 
QREM0930 
QREM0940 
QREMG95G 
QREM0960 
QREMG970 
QREMC98G 
QREM0990 
QREM1000 
QREM1G10 
QREM1020 
QREM1Q30 
QREM1C40 
QREM1C5C 


FORMAT ( /, 10X, * THE VALUE OF THE TANGENTIAL SPRING CONSTANT IS = • * 01QREM1060 
*5.6,/,lGX,«THE VALUE OF THE RADIAL SPRING CONSTANT IS =‘,015.6,/, QREM1C70 
*1 OX , • THE VALUE" OF THE TORSIONAL SPRING. CONSTANT IS =‘,015. 6,/) QREM1C80 
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102 


105 


DO 15 IQ=l,.NORU 
NSTAT =NR$T { IQ ) 

NENO=NREU( IQ) 

DO 16 I R=1 »NEND 
N E= ( N S T AT- 1 ) + I R 
I F ( ME .GT. IK) NE=NE- IK 
P5=Z(NE+1)-Z(NE) 

P 6=Y ( NE + 1) — Y ( NE ) 

P7=ANG(NE+1)-ANG(N6) 

APHA= ATAN( P5/P6) 

IF (P6.LT.0.0 .AND. P5.LT.O.O) 

IF(P6.LT.O.O .AND. P5.GE.C.0) 

BNG ( NE+1 )= ANG (NE+1 ) 

BNG(NE)=ANG(NE) ' 

IF ( P7.GT.(4.7124) .AND. APHA.LT.Q.O) BNG( NE+1) =ANG(NE+l)-6. 2831853 
IF(P7.GT.<4.7124>.AND.APHA.GT.0.b) ENGINE )=ANG (N£)+fi. 2 831853 
IF ( P7iLT. (-4.7124) .AND. APH A. GT. 0.0) BNG ( NE + 1 ) = ANG ( NE+ 1 ') +6 . 2831 85 3 
IF (P 7. IT. (-4.7124) . AND. APHA. LT. 0. 0) BNG ( NE )= ANG { NE ) -6 . 2831853 
BZER=BNG(NE)-APHA 

B1 = (-2.*BNG(NE+1,)-4.*BNG(NE)+6.*APHA)/AL (NE) 

■ B2=(3.*BNG(NE+1)+3.*8NG(NE)-6.*APHA) /AL(NE)**2 
DO 102 1 = 1,8 
DO 102 J=1 , 8 
ELR ( I , J )=0. 0 


APHA=ARHA-3. 14159265 
APHA=APHA + 3 • 14159265 


QREM1C90 
QREMliOO 
QREM1 110 
QREM1120 
QREM1130 
QREM1140 
QREM1150 
QREM1160 
QREM1170 
QREM1180 
QREM1190 
QREM1200 
QREM1210 
QREM1220 
QREM1230 
QREM1240 
QREM 1250 
QREM1260 
QREM1270 
QREM 1280 
QREM1290 
QREM13C0 
Q.REM1310 
QREM1320 


DO 103 J=1 ,NOG A 
ZET=AL(NE)*AXG(J) 

PHIP=Bi+2.*B2*ZET 

PHI=RZER+B1*ZET+82*ZET**2 . ’ 

WET=AL ( NE) *AWG ( J ) 

YZET=C.0 

ZZET=0.0 

DO 105 J J= i , NCG A 

P2=BZER+B1*ZET*AXG(JJ )+82* ( ZET*AXG ( J J ) )**2+APFA 
YZET=YZET+C0S(P2 ) *ZET#AWG ( J J ) 

ZZET-ZZET+SIN (P2 )*ZET*AWG( JJ ) 

P3=YZET*SIN( PHI+APHA)-ZZET*COS(PHI+APHA) 


QREM 1330 
QREM1340 
QREM1350 
QREM1360 
QREM 1370 
QREM 1380 
QREM1390 
QREM 140 0 
QREM 1410 
QREM1420. 
QREM1430. 
QREM 1440 
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P4=YZET*CQS(PHI+APHA)+ZZET*SIN(PHI+APHA) 

ELR<1» 1 ) = ELR( l,n + (SCTU*C 0 S<PHI)** 2 +SCTW*SIN(PHI >**2)*WET 
ELR(2,1) = ELR«2,1)*( < SCTU-SCTW ) *S I N ( PH I )*COS (PHI) )*WET 
ELR ( 3» 1)=ELR(3»1)+(P3* SCTU^CO S ( PH I ) -P4*SCTW#S I N { PHI ) )*WET 
ELR <5, 1)=ELR<5, 1 )- ( ZET**2*SCTW*S IN < PH I) )*WET 
ELR(6»1)=ELR(6»1)“{ZET* : *3*SCTW*S IN (PHI ) )*ViET 
ELR( 2,2)=ELR( 2,2 ) + ( SCTU*SIN ( PHI)**2+SCTW*CCS (PHI )**2)*WET 
ELR ( 3» 2 )=ELR( 3, 2 H< P3*SCTU*SIN(PHI >+P4*SCTW*C0$ ( PHI ))*KET 
ELR(5»2)=ELR(5,2)+(ZET**2*SCTW*C0S (PH I ) )=*WET 
ELR(6,2)=ELR(6,2>+( ZET**3*SCTW*C0S (PHI) )*WET 
ELR(3f3> = ELR(3»3) + ( P3**2*SC TU+P4**2*,SCTW+ SCRU ) *WET 
ELR(5»3)=ELR<5t3)+( P4*SCTW*ZET**2+2.0*SCRU*ZET )*NET 
ELR(6, 3)=ELR(6*3)+(P4*SCTW*ZET**3+3.0*SCRU*ZET**2)*WET 
ELR( 5, 5) = ELR( 5 1 5 > + < ZET**4*SCTW+4. 0*ZET**2* SCRU ) * V«ET 
ELR(6,5) = ELR(6,5) + ( ZET**5*SCTW+6 . 0*ZET**3 *SCRU) * WE T 
ELR(6,6) = ELR(6»6) + {ZGT**6*SCTW+9*0 5 J t ZET*44*SCRU)*WET 
ELR ( 4 ♦ 1)=ELR( A»l)+ZET*COS( PHI )*SCTU*WET 
ELR(7 t 1> = ELR(7, 1HZET**2*C0S(PHI )*SCTU*WET 
- ELR (8 ,1)=ELR(8 t 1 )+ZET**3*CCS (PHI )*SCTU*WET 
ELR(4,2)=ELR(4,2) + ZET*SIN(PHI )*SCTU*WET 
ELR{ 7,2) = ELR( 7 t 2 )+ ZET**2*S IN ( PH I >*SCTU*WET 
ELRl8»2)=ELR(,8»2) + ZET*#3*$ IN (PH I )*$CTU*WET 
ELR(4»3)=ELR(4 f 3)+(P3*SCTU+PHIP*SCRU)*ZET#WET 
ELR(7, 3)=ELR( 7, 3 )+ ( P 3*SCTU+PH I P* SCRU ) *ZE T**2* WE T 
ELR (8 ,3> = ELR( 8, 3) + (P3*SCTIMPH IP*SCRU >*Z ET**3*WET 
ELR (4 t 4) =ELR(4,4)+ (SCTU+PHIP**2*SCRU )*ZET**2*WET 
ELR(5,4>=ELRC 5,4) + 2.*ZET**2*PHIP*SCRU*WET 
ELR(6,4>=ELR(6,4>+3.*ZET**3*PHIP*SCRU*WET 
ELR(7 t 4)=ELR(7,4)+ (SCTU+PH IP**2*SCRU >*ZET**3*WET 
ELR{8»4)=ELR(8t4) + (SCTU+PHIP^ t *2*SCRU)*ZET**4 ; <'WET 
ELR(7,5)=ELR(7t3 >+2.*ZET**3*PH IP*SCRU*NET 
ELR(8,5)=ELR18,5 >+2.*ZET**4*PHIP*SCRU*WET 
ELR(7»6)=ELR( 7 » 6 ) + 3. *ZET , 5 t *4’! c PHI P*SCRU*WET 
ELR (8,6)=ELR(8,6)+3.*ZET**5*PHIP*SCRU*WET 
ELR(7 t 7)=ELR(7»7) + (SCTU + PH IP**2*SCRU )*ZET**4*WET 
ELR (8 f 7)=ELR(8,7)+(SCTU+PH1P**2*SCRU )*ZET**5*WET 


QREM1450 
QREM1460 
QREMI470 
QR6M1480 
Q REM 1490 
QREM15CC 
QREM1510 
QREM1520 
QREM1530 
QREM1540 
QREM1550 
QREMi560 
QREM1570 
QREM1580 
QREM1590 
QREM16C0 
QREM1610 
QREM1620 
QREM1630 
QREM1640 
QREM1650 
QREM1660 
QREM1670 
QREM1680 
Q REM 1690 
QREM 1700 
QREM1710 
QREM1720 
QREM 1730 
QREM 1740 
QREM1750 
QREM 1760 
QREM 1770 
QREM1780 
QREM 1790 
QREM 1800 
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ELR (8,8 )=ELR( 8, 8 )+ l SCTU+PHIP**2*SCRU)*ZET**6*WE T 
103 CONTINUE 

DO 5 1=1,7 
IP 1=1 + 1 
DO 5 J= I PI » 8 

5 ELR(I ,J)=ELR< Jt,I ) 

DO 6 1=1,8 

DO 6 J = 1 , 8 
ELRR ( I ♦ J )=0. 0 
DO 6 K=l,8 

6 ELRR ( I, J) = ELRR( I,J )+ELR( I , K ) *A A ( NE , K , J ) 

DO 7 1=1,8 

DO 7 J=1 , 8 
ELRPC I,J)=0.0 
DO 7 K = 1 , 8 

7 • ELRP( I,J)=ELRPII, J)+AA(NE,K, I)*ELRR(K, J) 

16 CALL ASSEM{-NE,ELRP, SPRIN) 

15 CONtlNUE 

4 IF ( NBCCND .EC, 0) RETURN 

DO 91 1=1, NBCCND 
JT4=N0DER( I) *4 
JT4M3=JT4-3 
JT4M2=JT4-2 
JT4M 1= JT4— 1 

CALL ERC{ JT4M3, SPRIN, NI, ICOL ) 

IFINBCU ).EQ.l .OR, N8C(I).EQ,2) CALL ERC ( JT4M1, SPR IN,NI , ICOL ) 
1 F ( NBC ( I ) . EQ« 2 .OR. NBC { I ) ,EQ. 3) CALL ERC ( JT4M2 , SPRIN ,NI , ICOL ) 
91 CONTINUE' 

RETURN 
END ■ 


QREM1810 
QREM182C 
GREM1830 
QREM1840 
QREM1850 
QREM1860 
Q REM 1870 
QREM1880 
QREM1890 
y QREM 1900 
QREM1910 
QREM1520 
QREM1930 
QREM1940 
QREM1950 
QREM1960 
GREM 1970 
QREM1980 
QREM1590 
QREM2C00 
QREM2010 
QREM2G20 
QREM2030 
QREM2040 
GREM2050 
QREM2C60 
QREM2070 
QREM2080 
QREM2C90 
GREM 2 ICO 
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C 

c 


202 

402 

403 
205 


SUBROUTINE STRESS STRSCC10 

IMPLICIT REAL*8( A-H,0~Z> STRS0020 

TO EVALUATE GENERALIZED NODAL LOAO VECTOR DUE TO LARGE DEFLEC T I0NSTRSCC30 


AND ELASTIC-PLASTIC STRAIN 

DIMENSION ELFP ( 8 ) , BEP S ( 3 ) ,CEPS ( 3 , 3 ) , BINPVI ( 3 ) , B I MPW ( 3 ) , HWfi ( 3 , 3 ) , 
*PN< 8), PMl 8} ,HNL( 8) 

C0NMGN/FG/Y(5i ) t Z < 5 1 > » ANG ( 5 1 ) * H ( 5 1 ) » B , EX ANG , NS , I K, NOGA , NFL »N SF L , 
*NI,IC0L<205)»NBC0N0,NBC(4),NGDEB<4) 

COMMON /VQ/ FLVAI205) ,DISP<205) ,DELD<205) , SNS ( 50,3 ,6 , 5 ) , 

*BINP (50,3 ) »BIMP< 50,3) ,TDISP (205), TUI 205), TW( 205) , 

*C0IY(2O5) ,COIZI205) ,DELT AT • 

COMMON /HM/ YOUNG, OS, C5,C6,ASFL( 50,3,6*5) ,GZE t A ( 50, 3 ,6 ) , SNC ( 5 ) 
COMMON /BA/ BEP(50,3,3,8) , AL ( 50 ) , AXG ( 3 ) ,AWG(3) 

SIN(Q) =DSIN(Q) 

COS ( Q ) = DCOS (Q ) 

AT AN (Q ) = DAT AN ( Q ) , 

ABS ( G) ==DABS (Q) 

SQRT(Q)=DSQRT.( G) 

DO 502 IR=1, IK 

* DO 503 J- I ,NQGA 
BINP(IR,J)=0. 

B IMP ( IR, J )=0* 

DO 402 1=1,3 
BEPSU )=0. 

DO 402 R=1 , 8 
INDEX= (TR-1)'*4+K 

BEPS ( I )-BEPS ( I)+BEP(IR,J, I t K)*OELD( INDEX) 

CEPS( J,2)=0. 0 ‘ 

• DO 403 K=1 , 8 
INDEX={ IR-1)*4+K 

CEPS(J,2)=CEPS(J,2)+BEP(IR,J,2,K)*DISP{ INDEX) 

F ARE=BEPS( 1)+CEPS( J, 2 ) *BEPS ( 2 )-8EPS ( 2) **2/2. 

FCUR= BEPS ( 3 ) 

DG 151 K=1 ,NFL 
BFNP=C. 

BEPX=FARE+GZETA( IR,J,K)*FCUR 


STRSCC40 
STRS0C50 
STRS0060 
STRSCC70 
STRSGC80 
STRS0090 
STRS0100 
STRS01I0 
STRS0120 
STRS0130 
STRSC140 
STRS0150 
STRS0160 
STRS0170 
STRS0180 
STRS0190 
STRS0200 
STRS0210 
STRS0220 
STRS0230 
STRSC24C 
STRS0250 
STRS0260 
STRS0270 
STRS0280 
STRS0290 
STRS03C0 
STRS0310 
STRS0320 
STRS0330 
STRS0340 
STRS0350 
S TRS0360 
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IFtDS.GT. 0.0) RFACTR=1.+<C6*ABS(BEPX) )**C5 

STRSC37C 


DO 35 L= 1» NSFL 

STRS0380 


SNS (I R, J,K,L)=SNS( IR, J,K,L )+YOUNG*BEPX 

STRS0390 


IF(DS.EQ. 0.0) GO TO 255 

STRSG4C0 


IF< SNSUR, J,K,L)-SNQ(U >30,301,91 

STRSQ410 

91 

SNY=SNO(L) *RFACTR 

STRS0420 


IF (SNS (IR# J,K,L)-SNY)301, 301,20 

STRSG430 

20 

SNS( IR# J,K,t)=SNY 

STRS0440 


GO TO 301 

STRS0450 

30 

IF(SNS(IR,J»K,L)+SNO(L) )92,301,301 

STRS0460 

92 

SNY=SN0(L) *RF A-CTR 

STRS0470 


I F ( SNS ( IR# J,K,L) + SNY) 40# 301,30 1 

STRS0480 

40 

SNS ( IR, J,K,l )=-SNY 

STRS0490 


GO TO 301 

STRSC5CQ 

255 

I F ( SNS( IR, J,K,L)-SNQ(U) 18,301,17 

STRS0510 

17 

SNSUR, J,K,L) = SNO(L) 

STRS0520 


GO TO 301 

STRS0530 

IB 

IF( SNSUR, J, K,L) +SNO(L) ) 19, 301,301 

STRS0540 

19 

SNS( IR, J,K,L)=-SNO(L ) 

STRS 0550 

301 

BFNP=BFNP+SNS ( I R » J,K , t ) *AS FL ( IR,J,K,L ) 

STRS0560 

35 

CONTINUE 

STRS0570 


BINP.f IR, J)=BINP( IR,J)+BFNP 

STRS0580 


BIMP( IR, J)~8IMP( IR,J )+BFNP*GZETA( IR, J,K) 

STRSC590 

151 

CONTINUE 

STRS06G0 

503 

CONTINUE 

STRS0610 

107 

DO 101 J=1,N0GA 

STRS0620 


HWB( J,2)=CEPS ( J,2)*AWG(J >*B INPUR, J )*AL( IR) 

STRS0630 


BINPWl J)=BINP(IR, J)*AWG( J)*ALUR) 

STRS0640 


B I'MPW ( J )=B IMP ( IR , J ) #AWG{ J ) *AL ( IR > 

Sf RS0650 

101 

CONTINUE 

STRSC660 


DO .102 1=1,8 

STRS0670 


PN { I )=0. ' . ' 

STRS0680 


PM( I )=0. 

STRSG69G 


HNL ( I ) =0 .0 

STRS0700 


DO 102 J= 1 , NOG A 

STRS07 10 


PN ( £ ) — P N f I ) + BEP ( IR,J, I, I )*BINPW( J) 

STRS0720 
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PP(l)=Pf m + 8EP( IR’»J»3f I )*BIMPW{J,) 

STRS073C 

102 

HNLII ) =HNL ( I )+BEP(IR, J,2,I)*HWB( J.,2) 

STRS0740 

2C0 

DO 105 1=1,8 

STRS0750 

105 

ELFPtI } = PNU)+PMU )+HNL( I ) 

STRSG760 

502 

CALL ASSEFt 1R , 1 K , ELFP , FLVA , EX ANG ) 

STRS0770 


RETURN 

STRS0780 

• i 


END 

STRS0790 



A. 6 Illustrative Examples 


A. 6.1 Free Circular Uniform-Thickness Containment 
Ring Subjected to Single-Fragment Attack 

In this example a free, initially-circular ring: 7.70-in midsurface 

radius, 0.40-in thick, and 1.25-in long. is subjected to attack by a circular— 

. —3 2 

disk fragment with radius r = 3.37 in, mass 4.60 x 10 (lb-sec )/in, mass 

-2 2 

moment of inertia 2.61 x 10 lb-sec -in, initial translational velocity 

6,400 in/sec, rotational velocity 20,000 rpm (2100 rad/sec), and r = 3.63 in. 

CG 

(see Fig. A. 5). 

The stress-strain curve is approximated by straight-line segments having 
the following stress-strain coordinates: (a,£) = (0 psi, 0 in/in); (80,950 psi, 
.00279 in/in); (105,300 psi, .0225 in/in); and (121,000 psi, .200 in/in). 

Strain-rate effects are neglected. The mass density of the material is taken 
to be 0.732 x 10~ 3 (lb-sec 2 ) /in 4 . 

The number of equal-length finite elements to be used to describe the 
complete ring is 40. 

Let the CIVM-JET-4A program calculate the transient response of the 
ring. The time increment At = 1 ysec is chosen, which has been shown (by 
numerical experimentation) to be suitable to provide a converged solution for 
this case. By consideration of the ring and fragment geometry and the velocity 
components of the fragment, a calculation has determined that there is no pos- 
sibility of initial impact before approximately 303 ysec after fragment release 
which is assumed to occur at the condition (instant) shown in Fig. A. 5. To 
expedite the calculation and to eliminate the possibility of accumulation of 
error in the calculation of fragment position (while not significant in this 
example, a major consideration in calculation involving obliquely-oriented 
translational velocity vectors) , the fragment is advanced to its position at 
300 ysec after release through the use of the TPRIM value specified in the in- 
put data . 

Six hundred and fifty computational cycles (650 ysec) of structural 
response and the associated impact interactions are to be computed. These com- 
putational cycles, it should be noted, start at TPRIM = 300 ysec. Printout is 
desired at 5 cycles after TPRIM and, every 40 cycles thereafter. An energy accountin 
calculation for the system is desired. 
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Caxd 


Card 


Card 


nodal 


A. 6. 1.1 Input Data 

The values to be .punched on the data cards are as follows: 


Format 


3D15.6 


2a 


B 


0.125000 

D+01 

DENS 

= 

0.732000 

D-03 

EXANG 

= 

0.360000 

D+03 

IK 

= 

40 


NOGA 

= 

3 


NFL 

= 

4 


NSFL 

= 

3 


MM 

= 

650 


Ml 

= 

5 


M2 

= 

40 ’ 


NF 

= 

1 


Y(D 

= 

0.000000 

D+00 

Z(l) 

= 

0.770000 

D+01 

ANG(l) 

. = 

0.000000 

D+00 

H (1) 

= 

0.400000 

XH-00 


8X5 


4D15.6 


Additional 2a cards are provided in the same format until all 40 
points are described. 


Y(40) 

= 0.120454 

D+01 

Z (40) 

= 0.760520 

D+01 

ANG (40) 

= 0.900000 

D+01 

H (40) 

= 0.400000 

D+00 
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Format 


Card 3 

DELTAT 

CRITS 

DS 

Card 4 

EPS (1) 
SIG(l) 
EPS (2) 
SIG(2) 

Card 4a 

EPS (3) 
SIG (3) 

Card 5 

FH (1) 
FCG (1) 
FCGX(l) 
FMASS(l) 
FMOX (1) 

Card 6 

UNK(l) 

Card 7 

UDOT(l) 
WDOT(l) 
ADOT(l) 
TP RIM (1) 
CR(1) 

Card 8 

AXG(l) 

AXG{2) 

AXG(3) 


= 0.100000 D-05 
= 0.200000 D+00 

= 0.000000 D+00 (strain-rate effects are 
neglected) 

= 0.279000 D-02 
= 0.809500 D+05 
= 0.225000 D-01 
= 0.105300 D+06 

= 0.200000 D+00 
= 0.121000 D+06 

= 0.674000 D+01 
= 0.363000 D+01" 

= 0.000000 D+00 
= 0.460000 D-02 
= 0.261000 D-01 

= 0.000000 D+00 


4D15.6 


4D15.6 


4D15.6 


5D15.6 


Di5:e 


5D15.6 

= 0.640000 D+04 
= 0.000000 D+00 
= - 0.210000 D+04 
= 0.300000 D— 03 (300 psec after 
= 0.100000 D+01 release) 

3F15.10 

= 0.1127016654 
= 0.5 

= 0.8872983346 
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Format 


Card 9 


3F15.10 


Card 10 


Card 11 


Card 12 


Card 13 


Card 14 


awg(1) 

= 

0.2777777778 

AWG(2) 

= 

0.4444444444 

AWG (3) 

= 

0.2777777778 

TXG(l) 

= 

-0.8611363115 

TXG (2) 

= 

-0.3399810435 

TXG ( 3 ) 

= 

0.3399810435 

TXG (4) 

— 

0.8611363115 

THG(l) 

= 

0.3478548451 

TWG (2) 

= 

0.6521451548 

TWG{3) 

- 

0.6521,451548 

TWG (4) 

= 

0.3478548451 

NBCOND 

= 

0 (no prescribed displacement 

conditions) 

NQR 

= 

0 (no prescribed elastic 

restraints) 

ICONT 

_ 

0 (no initial conditions) 


4F15.10 


4F15.10 


15 


315 


15 


The total input deck for .this example should appear as follows: 
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0. 12 5000D 01 
40 3 4 
O.OOOOCODOOO 


0.1204550 

01 

00.2379430 

01 

00.3495730 

01 

00. 452595D 

01 

00.5444720 

Cl 

00. 6229430 

01 

00.6860750 

01 

00. 7323140 

Cl 

00. 7605200 

01 

00. 770000D 

01 

00. 760520D 

01 

00.7323140 

01 

00. 686075D 

01 

00.6229430 

01 

00.5444720 

01 

00. 452594D 

01 

00.3495720 

01 

00.2379430 

01 

00. 1204540 

01 

-0.2508980- 

■05 

-0.1204550 

01 

-0.237943D 

01 

-0. 349573D 

Cl 

-0.452595D 

01 

-0.5444720 

01 

-0. 622943D 

01 

-0.6860750 

01 

-0, 7323140 

01 

-0.7605200 

01 

- G . 77 CO COD 

01 

-0. 7605200 

Cl 

-0.7323130 

Cl 

-0.6860750 

01 


0 . 13 20 OOD- 03 
3 650 5 

0.77QG00D 01 
00,7605200 01 
00.7322140 01 
00.6860750 Cl 
00.6225430 01 
00.5444720 01 
00,45255 5D 01 
00.3495730 Cl 
00. 237543 D 01 
CO. 12Q454D 01 
-0. 125449D-05 
-0, 120455D Cl 
-0. 2379430 Cl 
-0. 3495730 Cl 
— 0. 452555D 01 
-0 . 544472D Cl 
-0,6229430 01 
-0.686C75D Cl 
-0. 7223140 01 
-C.76G52GD 01 
-0 ■ 770GC0D Cl 
-0.7605200 01 
-G. 7323130 01 
-C.686C75C Cl 
— 0.62254 3D Cl 
-C.544472D 01 
-0.4525540 Cl 
-0.3495 720 Cl 
-0.2379430 01 
-0.1204540 Cl 
00 . 37634 7C-C5 
00. 120455D .01 
00.237943D Cl 
00.3495730 01 


0.3600000 

03 

40 1 


C.CCGOOCC 

CO 

-C.SOOOOOD 

01 

-G. 1800000 

02 

-C.270000C 

02 

-G.360000D 

02 

-C.45000GC 

C 2 

-0. 54C0C0C 

02 

-C. 6300000 

02 

-C. 7200000 

02 

-0.8100000 

02 

-C.9COGOOO 

02 

-C.5900GOD 

02 

-C. 1C80C00 

03 

— 0.117000C 

03 

-G.126000C 

03 

-G.135000D 

G3 

-0. 144000D 

03 

-0. 1530CCD 

03 

-0.162000D 

03 

-0. 171G0CC 

03 

00 ■ 18000CC 

03 

CO. 171G0GD 

03 

OC. 1620CGD 

03 

00 . 153000C 

03 

00. Z440G0D 

03 

00.1350000 

03 

00.1260000 

03 

00. 1170000 

03 

00. 108000D 

03 

0 C . 5900000 

02 

0 C . 9COOOOD 

02 

OC. 8 10000D 

02 

OC .7200000 

02 

00.6300000 

02 


C. 4000000 00 
00 .4000000 00 
0G.4CG0C00 00 
00.4000000000 
OG.4COOOOD 00 
CC.4CC00CD GO 
00.4000000 00 
OC .4000000 00 
C0.4C0000D 00 
OC. 4000000 00 
GC.4GC0CCD 00 
OG.400000D 00 
CC.4CGOOOD 00 
00.4C0000D 00 
0C.4C0000D 00 
GC.4C0000D 00 
00.4000000 00 
00 .4GC-000D GO 
00.4000000 00 
00.4000000 GO 
CC.4CCOOCD 00 
CC.400000D 00 
OC. 4000000 00 
00.400000D 00 
00.4000000 00 
OC.4CCGOQD CO 
00.4000000 00 
GC. 4000000 00 
00 . 400000D 00 
00.4000000 00 
CC.4.CC0Q0D 00 
00.4CC000D 00 
CC.4CC000D 00 
CO. 4000000' 00 
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-0.622943D 01 00.4525950 01 GC. 5400000 02 

-0.5444720 01 00.5444730' 01 0C.45G0GGD 02 

-0. 4525940 01 00.622943D Oi 00.3600000 02 

-0.34.95720 01 00.6860750 01 .00.270000D C2 

-0.2379430 01 00.7323140 Cl ' 00.180000D 02 

-0.1204540 01 00. 76G520D 01 CC.9CQ00GD 01 

00.1000000-05 00.200000D CO CO.COOOCOC OC 

00.279000D-02 00.809500D C5 00. 225000C-C 1 

00.2000000 GO 00.12 10C0D 06 

00.6740000 01 00. 3630C0D 01 OO.COOOOOC 00 

00.0000000 00 

00.64C000D 04 OO.OCOOOOO 00 -0.210000D C4 

0 . i 1 27016654 0.5 0.8872983346 

0.2777777778 0.4444444444 0.2777777778 

-0.8611363115 -0.3399810435 , 0.3399810435 

0.3478548451 0.6521451548 ' C. 652 14 5 154.8 

0 
0 
0 


CO;40COOOD 00 ' 

00.4000000 00 
00.4000000 00 
0C.4C0C00D 00 
00.4000000 00 
OC.4CCOOOD .00 

00.1C5300D 06 ■ 

00.4600000-02 00^2610000-01 

OC.3COOOOO-03 CO.IOCOOOO 01 


C. 8611363115 
C. 3478548451 



a . 6 ■ I ■ 2 Solution Output Data 


The following output for example 1 was obtained through the use of a 
CIVM-JET-4A analysis. In the interest of conciseness, only the output ob- 
tained at time cycles' 5, 45, 325, 405, 605, and 645 after TPRIM is presented 
to enable a user to check the proper adaptation of CIVM-JET-4A to his com- 
puting facility. 

The ring material and geometric properties, and prescribed displacements 
or restraints, the initial nodal coordinates, and the fragment geometric and 
initial velocity and energy properties are output to provide an input-data- 
consistency check. 

The initial impact is detected at 3 cycles after TPRIM at a position’ 
along the length .of- element 4. During the subsequent computational cycles, im- 
pact positions are detected indicating that the fragment is traveling in a 
clockwise direction along the surface of the ring. 

The maximum circumferential strain response of the ring reaches 9.84 
per cent at 382 ysec after TPRIM at the outer surface midspan of element 7. + 

The energy "breakdown"- at a given time cycle is presented immediately 
before the structural response data for that time cycle. 


+ In the present example, the strain -responses were computed only at the midspan 
station of each ring finite element. 
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STRAIN 

(11 

= 0.2790000- 

02 STRESS (1) = 

0.8095000+05 


STRAIN 

(?) 

= C. 2250000- 

01 STRESS (2) = 

0.1053000+06 


STRAIN 

(3) 

■ c'.2OC000D+OO STRESS (31 = 

0.1210000+06 


NDCF NCI. 


Y COORD 

7. COORD • 

SLOPE 

•RING THICKNESS AT NODE I 

I 


0.0 

0.7700000+01 

0.0 

, 0.4000000+00 

? 


0.1 204 550 + 01 

0.7605200+01 

-0. 15708CD+00 

0.4000000+00 

3 


P. 2379430+01 

C .732314D+01 

-0.3141590+00 

0.4000000+00 

4 


. C.3495730+CI 

016860750+01 

-0.4712390+00- 

0.400000D+00 

5 


0.4 525850+01 

0 .6229430+01 

— 0.62B3 190+00 

0.4000000+00 

6 


0.5444720+01 

0. 5444720+01 

-0.7853980+00 

0. 400000D+00 

7 


0.6229430+01 

0. 4525950+01 

-0. 9424780+00 

o. 4000000+00 

8 


0.6860750+01 

0.3495730+01 

-0. 109956D+01 

0.4000000+00 

9 


C .73 23 1 4D+C l 

0 . 2379430+ Cl 

-0. 1256640*01 . 

0.4000000+00 

10 


0.7605200+01 

0.1204540+01 

-0. 1413720+01 

0.400000(1 + 00 

11 


C. T 7O0C0D+C1 

o 

o 

• -0.1570800+01 

0.4000000+00 

1? 


0.7605200+01 

-0.1204550+01 

-0.1727880+01 

0.4000000+00 

13 


0. 7323140+01 

-0.2379430+01 

-0.1884960+01 

0.4000000+00 
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14 

0.6860750+01 

-C. 3495730+01 

-0.2042040+01 

15 

C. 6229430+01 

-0.4525950+01 

—0.2 19912 D+01 

16 

0. 5444 720+01 

-0.5444720+01 

-0.2356190+01 

17 

0.4525950 + 01 

-0.6229430+01 

-0.2513270+01 

18 

0.3495730+01 

-0.666075D+01 

-0.2670350+01 

19 

0.2379430+01 

-0*. 732314D+01 

-0.2827430+01 

20 ! 

0. 120*4 540 + 0 1 

-0. 76C520D+01 

-0.2984510+01 

21 

Q.O 

-C. 7700000+01 

0.3141590+01 

22 

-0.1204550+01 

-C. 7605200+01 

Q. 2984 510+Cl 

23 

-6.2379430+01 

-C. 7323140+01 

0.2827430+01 

24 

-0. 3495730+01 

-0.6860750+01 

0. 2670350+01 

25 

-0.4525950.+ 01 

-0.6229430+01 

0.2513270+01 

26 

-0.5444720+01 

-0 .5444720+01" 

0.2356190+01 

27 

-0.6229430+01 

-0.4525950+01 

0 . 2 199 12D+0 1 

28 

-0.6060750+01 

-0’.3495730+0l 

0. 204204D+0 1 

29 

-0.7323140+01 

-0.2379430+01 

0. 1884960+01 

30 

-0.7605200+01 

-C. 1204540+01 

0.1727880+01 

31 

-C. 77QCCCD+C1 

• 0.0 

0. 1570800+01 

32 

-0.7605200+01 

0.120455D+01 

0. 141372D+01 

33 

-0.7323140+01 

0.237943C+01 

0. 1256640+01 


0.4000000+00 

0.400000D+00 

C. 4000000+00 

0*4000000+00 

0.400000D+00 

0. 400000D+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00' 

0. 4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 

0.4000000+00 
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34 

• -0.686075D+GI 

0.3495730*01 

0.1099560+01 

0,4000000*00 

35 

-0.6229430+01 

0.4525950*01 

0.942478D+00 

0,4000000+00 

36 

-0. 5444720+01 

0.5444720*01 

0,7853980*00 

0.4000000+00 

37 

-0.4525950*01 

0. 6229430+01 

0,6283190+00 

0,4000000+00 

38 

-0.3495730*01 

0. 6060750+01 

0.4712390+00 

0. 4000000+00 

39 

-0.2379430*01 

0.7323140+01 

0,3141590+00 

0,4000000+00 

40 

-0.1204540*01 

0.760 5200*01 

0.157080D+00 

0.4000000+00 

FRAGMENT 
FRAG. NO 
l 

PROPERTIES 

. WIDTH OF FRAG. 

t 

0,6740000*01 

PASS CF FRAG, 
0. 4600000-02 

MOMENT OF INERTIA OF FRAG. FCGY 

0.2610000-01 0.0 

COLLISION 
FRAG. NO 
I 

parameters 

. VEL IN Y DIR, VEL 

0. 6400000*04 0. 

IN Z DIR. ANG 

0 -0. 

. VEL. COEFF 

2100000+04 

.OF RESTIT. INITIAL KINETIC ENERGY 

0.1000000+01 C. 1517580+06 


THE«F IS NO PRESCRIBED DISPLACEMENT CONOrnCN 
THERE ARP NO ELASTIC SPRING CONSTANTS 
SUE OF ASSEMBLED MASS OP STIFFNESS MATRIX - 1632 


FCGZ 

0.3630000*01 

COEFF. OF FRICT 
O.C 
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IMPACT IT» 3 ELEMENT NO. - 4 - rKAOMCWT WO. - 1 

LOCATION ON ELEMENT * 0.847368D+0C PENETRATION DIST « 0.2048190-02 


CURRENT TIME CYCLE FRAGMENT 


KINETIC ENERGY 


5 


0*1435840+06 


WORK INPUT INTC RING TO TIME STEP 5 
RING KINETIC ENERGY AT TIME STEP 5 
RING ELASTIC ENERGY TO TIME STEP 5 
RING PLASTIC WORK TO TIME STEP 5 


ENERGY STCRED IN FLASTIC RESTRAINTS 


0.8174L9D+04 

0*4595400+04 

0.7926770+02 

0.349952D+04 

0.0 


5 TIME- 0. 500000-05 


! V 

Vi 

PSI 

CHI 

COPY 

COPZ 

L 

M 

STRAIN! INI 

STRAIN (OUT) 

1 • c.o 

0.0 

0.0 

O.C 

0.0 

0.7700D+01 

0.86800+01 

0.47730-01 

0.54900-06 

0.64770-06 


2 

0.65660-06 

-0.12810-06 

-0.28910-06 

0.E296D-06 

0. 1205D+01 

0.76050+01 

0.11960+04 

— 0.3169D+02 

Q.U520-03 

0. 49650-04 

3 

C- 86900-04 

0.36360-04 

0.19990-03 

0.94810-04 

0.2380D+01 

0.7323D+01 

0-33970+05 

0.37280+02 

0 .23030-02 

0.23800-02 

4 

0.91690-03 

0.12610-01 

C. 75220-04 

0. 5543D-04 

0.35020+01 

0.68720+01 

0.22610+04 

0.5342D+02 

0. 10060-03 

0.21110-03 

5 

-0. 39430-03 

0.54C80-02 

-C.2514D-03 

0.34320-04 

0.4529D+01 

0.62340+01 

0.14070+05 

-0.16580+02 

0.90720-03 

0.95300-03 

6 

— C. 3 7800-04 

0.18230-04 

-0.99590-04 

0.37650-04 

0-54450+01 

0.54450+01 

0.5331D+03 

-0.15780+02 

0.53070-04 

0. 20430-04 

7 

-0.27740-06 

-0.54400-07 

0.12300-06 

0.35000-06 

0.62,290+01 

0.45260+01 

0.36690+OL 

0.20300-01 

0.2319D-06 

0. 2739D-C6 

8 

O.C 

0.0 

0.0 

0.0 

0.68610+01 

0.34960+01 

0.0 

0.0 

0.0 

0.0 

9 

O.C 

O.C 

0.0 

0.0 

0. 73230+01 

0.23790+01 

0.0 

0.0 

0.0 

0.0 

10 

0.0 

0.0 

0.0 

O.C 

0.7605D+01 

0.12050+01 

0.0. 

0.0 

0.0 

0.0 

11 

0.0 

0.0 

0.0 

0.0 

0. 77000+01 

0.0 

0.0 

0.0 

0.0 

c.o 

12 

C.C 

o.a 

0.0 

0.0 

0.7605D+01 

-0.12050+01 

0.0 

0.0 

0.0 

0.0 

13 

O.C 

0.0 

0.0 

0.0 

0.7323D+01 

-0.2379D+01 

0.0 

0.0 

0.0 

0.0 

14 

C.C 

o.o 

0.0 

o.o 

0.68610+01 

-0.34960+01 

0.0 

0.0 

0.0 

0.0 

15 

C.C 

0.0 

c.o 

O.C 

0.62290+01 

-0.4526D+01 

0.0 

0.0 

0.0 

C.O 

16 

c.o 

0.0 

C.O 

0.0 

0.54450+01 

-0. 54450+01 

0.0 

0.0 

0.0 

0.0 

17 

C.C 

0.0 

0.0 

O.C 

0.4526D+01 

-0.62290+01 

0.0 

a.o 

0.0 

0.0 

IB 

C.C 

0.0 

c.o 

C.C 

0.3496D+01 

-0.68610+01 

0.0 

0.0 

0.0 

C.O 

19 

O.G 

0.0 

0.0 

0.0 

0.23790+01 

-0.73230+01 

0.0 

0.0 

o.o 

o.o 

20 

O.C 

c.o 

c.o 

O.C 

O.L2050+01 

-0.76050+01 

0.0 

a.o 

o.o 

C.O 

21 

C.C 

0.0 

0.0 

O.C • 

0.0 

-0.77000+01 

0.0 

0.0 

0.0 

0.0 

22 

C.C 

0.0 

0.0 

O.C 

-0.12050+01 

-0.76050+01 

o.o 

0.0 

0.0 

0.0 

23 

C.C 

0.0 

c.o 

O.C 

-0.23790+01 

-0.73230+01 

0.0 

0.0 

0.0 

QiO 

24 

O.C 

0.0 

0.0 

O.C 

-0.34960+01 

-0.68610+01 

0.0 

0.0 

0.0 

0.0 

25 

0 . 0 

0.0 

0.0 

0.0 

—0*45260+01 

-0.62290+01 

o.o 

0.0 

0.0 

C.O 

26 

C.O 

0.0 

c.o 

O.C 

—0. 54450+C1 

-0.54450+01 

0.0 

O'.O 

0.0 

0*0 

27 

C.C 

0.0 

0.0 

O.C 

-0. 62290+01 

-0.45260+01 

0.0 

0.0 

o.o 

0.0 

26 

C.C 

0.0 

c.o 

O.C 

-0.68610+01 

-0.34960+01 

0.0 

0.0 

0.0 

0.0 

29 

O.C 

0.0 

0.0 

O.C 

-0.73230+01 

-C. 23790+01 

0.0 

0.0 

0.0 

0.0 

30 

c.o 

0.0 

0.0 

O.C 

-0.7605D+01 

-0.12050+01 

0.0 

0.0 

0.0 

0.0 

31 

O.C 

0.0 

0.0 

O.C 

-0.77000+01 

0.0 

0.0 

0.0 

0.0 

0.0 

32 

0.0 

0.0 

0.0 

O.C 

-0.76050+01 

0.12050+01 

0.0 

0.0 

o.o 

0.0 

33 

O.C 

0.0 

0.0 

0.0 

-0.73230+01 

0.23790+01 

0.0 

0.0 

o.o 

0.0 

34 

O.C 

0.0 

o.o 

c. c 

-0.68610+01 

0.3496D+G1 

0.0 

o.o 

0.0 

0.0 

35 

C.C 

0.0 

0.0 ’ 

0.0 

-0.62290+01 

0.45260+01 

0.0 

0.0 

0.0 

0.0 

36 

O.C 

0.0 

c.o 

O.C 

-0.54450+01 

0*54450+01 

0.0 

0.0 

Qio 

0.0 

37 

0.0 

0.0 

0.0 

O.C 

-Q.4526D+C1 

0.62290+01 

0.0 

0.0 

0.0 

0.0 

38 

C.C 

0.0 

0.0 

0.0 

-0.34960+01 

0.68610+01 

0.0 

0.0 

0.0 

0.0 

39 

0.0 

0.0 

0.0 

O.C 

-0.23790+01 

0.73230+01 

0.0 

0.0 

0.0 

0.0 

40 

c.o 

0.0 

c.o 

0.0 

-0.12050+01 

0.76050+01 

o.o 

0.0 

0.0 

0.0 


‘ FRAG NO. 

FCGU - 

FCGW « 

ALFA - 

FRUV » 

FRHV = 

FRAV * 



1 

0. 195109D+C1 0.3628510+01 -0.6405000+00 

0.6095880+04 

“0.4962B5D+03 -0 . 2 100000+04 
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IMPACT IT= 31 ELEMENT NO. * 4 FRAGMENT NO. * l 

LOCATION CN ELEMENT = 0.54308704-00 PENETRATION D1ST *= 0.5126100-03 

CURRENT TIME CYCLE FRAGMENT KINETIC ENERGY 

45 I Q.141390D+Q6 


WORK INPUT INTO RING TO TIME STEP 45 * 0.1036840+05 
RING KINETIC ENERGY AT TIME STEP 45 * 0.448911D+04 
RING FUSTIC ENFRGY TO TIME STEP 45 = 0.44624504-03 
RING PLASTIC WORK TO TIME STEP 45 = 0.543302D+04 
ENERGY STORED IN ELASTIC RESTRAINTS * 0.0 


45 TIMEs C.45000D-C4 


IV W PSI Chi COPY 

1 0.59300-02 -0.26B10-02 -C. 32600-02 0.00040-03 0.5980D-02 

2 0. 81530-02 -0.59260-02 -0.20200-02 0.14200-02 0. 121204-01 

3 0.15450-01 0.20340-01 C.64960-01 0.13370-01 0.240004-01 

4 0.44210-02 0.151804-00 0.26980-01 0.21310-01 0.356904-01 

5 -0.62880— C2 0.90210-01 -0.74200-01 0.21880-02 0.457404-01 

6 — 0. 1042D-01 0.99280-02 -0.33080-01 0.44060-02 0.544404-01 

7 -0. 7 130D-02 -0.55640-02 0.19930-02 0.12270-02 0.62210+01 

8 -0.50450-02 -0.19460-02 0.29860-02 0.11090-02 0. 68570+01 

9 -0.35210-02 -0.84340-03 C.7657D-03 0.00450-03 0.732t0+0l 

10 -C. 22700-02 -0.46C30-03 0.52430-03 0.98820-03 0.76040+01 

U -0. 1I34D-02 -0. 17940-03 C. 22990-03 0.81430-03 0.7700D+01 

12 -0.4026D-03 -0'.532LD-04 0.74060-04 0.38090-03 0. 76050 + 01 

13-0.10230-03 -0.11940-0,4 0.17660-04 0.11360-03 0.73230*01 

14 -0.19270-04 -0.20610-05 0.3185D-05 0.23650-04 0.6861D+Q1 

15 -0.27800-05 -0.27940-06 0.44590-06 0.36510-05 0.62290+01 

16 -0.31620-C6 -0.30340-07 0. 49630-07 0.43560-06 0.54450+01 

17 -0. 29020-07 -0.2689D-OB 0.44810-08 0. 41400-07 0.4526D+0I 

18 -0.21890-08 -0.19730-09 0.3338D-09 0.32070-08 Q.3496D+01 

19 -0.13760-C9 -0.12140-10 0.20780-10 0.2C590-09 0.23790+01 

20 -C. 73050-11 -0 .6333 D- 12 0.1095D-U 0.UU0-10 0-12050+01 

21 -0. 33050-12 -0.28250-13 0.49210-13 0. 50940-12 0.33050-12 

22 -0.12850-13 -0.10850-14 C. 19040-14 0.20020-L3 -0.12050+01 

23 -0.43240-15 -0.36160-16 0.63770-16 0.67990-15 -0.2379D+01 

24 -0.11950-16 -0.1107D-17 0.17560-17 O.2U0D-16 -0.3496D+01 

25 0.2707D-16 -0.22990-17 -0.39770-17 0.43910-16 -0.45260+01 

26 C. 92880-15 -0.7771D-16 -0.13700-15 0.14600-14 -0.5445D+01 

27 0.27380-13 -0.2314D-14 -0.4C54D-14 0. 42630-13 -0.6229D+01 

28 0.69760-12 -0. 59670-13 -0.10390-12 0.10740-11 -0.60610+01 

29 0.15260-10 -0. 1325D-H -0. 22870-11 0.23180-10 -0.73230+01 

30 0.2842D-09 -0,25110-10 -0.42930-10 0.4246D-09 -0.76050+01 

31 0.44620-08 -0.4030D-09 -0.68070-09 0.65270-08 -0.77000+01 

32 0.58330-07 -0.54170-08 -C. 90120-08 0.03030-07 -0.76050+01 

33 0.62530-06 -0.60200-07 -0.98240-07 0-85870-06 -0.73230+01 

34 0.5395D-C5 -0.54460-06 -0.86690-06 0.70540-05 -0. 68610+01 

35 0. 36590-04 -0. 39400-05 -0.60650-05 0.44620-04 -0.62290+01 

36 C. 10930-03 -0.22310-04 -0.32830-04 0.20780-03 -0.54450+01 

37 C. 71980-03 -0.96700-04 -0.1335D-03 0.6654D-03 -0.45250+01 

38 0 • 1928D-02 -0.31430-03 -0.39730-03 0.13030-02 -0.34940+01 

39 0.35390-02 -0.76250-03 -O.0446D-O3 0.12240-02 -0. 23760*01 

40 0.47600-02 -0.13450-02 -0.12230-02 0.36100-03 -0‘.i2000+0l 

FRAG NO.* FCGU = - FCGW = ALFA * 

L 0. 2193550+01 0.3606620+01 -0.7245000+00 


COPZ 

L 

H 

STRAIN! IN) 

STRAINIOUT) 

0. 76970+01 

0.1B55D+05 

-0.1980D+03 

0.14840-02 

0.10740-02 

0.75980+01 

0.24050+05 

-0.30930+04 

0.16610-01 

-0. 55470-02 

0.73380+01 

0.2664D+05 

0,21190+04 

-0.13840-02 

0.10780-01 

0.69940+01 

0.32660+05 

0.26290+04 

-0.81540-02 

0.25180-01 

0.63060+01 

0.3030D+05 

-0.20460+04 

0.11500-01 

-0.2102D-02 

0.5459D+01 

0.16060+05 

-0,31740+04 

0.82380-02 

-Q. 33550-02 

0.45280+01 

0.18210+05 

-0. 15800+03 

0.14180-02 

G. 10920-02 

0.34990+01 

0.17140+05 

0.35660+03 

0.81270-03 

C. 15500-02 

0.23830+01 

0.14180+05 

0.39270+02 

0.93680-03 

0. 10180-02 

0.12070+01 

0.1304D+05 

0. 47030+02 

0.85020-03 

0.94750-03 

0.1134D-0? 

0.85180+04 

0.2482D+02 

0.56150-03 

G.61280-03 

-0.12040+01 

0.3522D+04 

0.89790+01 

0.23350-03 , 

0.25210-03 

-0.23790+01 

0.97790+03 

0. 23040+01 

0.65020-04 

0.69790-04 

-0.34960+01 

0. 19450+03 

0.43590+00 

0.12950-04 

0*13850-04 

-0.45260+01 

0.2909D+02 

0.63030-01 

0.19400-05 

0.20700-05 

-0.54450+01 

0.33930+01 

0.71810-02 

0.22650-06 

0. 24130-06 

-Q. 62290+01 

0.31710+00 

0.65940-03 

0. 2U8D-07 

0.22540-07 

-0.6861D+01 

0. 24240-01 

0.49750-04 

0. i 620D-00 

0. 17220-08 

-0 ..73230+01 

. 0.15410-02 

0.31290-05 

0.10300-09 

0. 1094D-09 

-0. 76050+01 

0.82460-04 

0,16610-06 

0.55120-U 

0, 58560-11 

-0,77000+01 

0.3756D-05 

0.75160-08 

0. 25110-12 

0,26670-12 

-0.7605D+01 

0.14660-06 

0.29230-09 

0.98200-14 

0. 1042D- 13 

-0.73230+01 

0.49710-08 

0.98490-U 

0.33240-15 

0.35280-15 

-0.68610+01 

0.46140-09 

0.9105D-12 

0.3086D-16 

0.32 740-16 

-0.6229D+Q1 

0.10660-07 

0.21120-10 

0.7L31D-15 

0.75680-15 

-0.54450+01 

0.31270-06 

0.62230-09 

0.209LD-13 

0.22200-13 

-0.45260+01 

0.79240-05 

0,15860-07 

0.52980-12 

0.56260- 12 

-0.34960+01 

0.17220-03 

0.34680-06 

0.11510-10 

0. 12230-10 

-0.23790+01 

0.31790-02 

0.64590-05 

0.21250-09 

0. 225 80— 09 

-0. 12050+01 

0.49380-01 

0. 10140-03 

0.32990-08 

0.35090-08 

0. 44620-08 

0.63650+00 

0.13250-02 

0.4250D-07 

0. 45240-07 

0.12050+01 

0.66970+01 

0.14190-01 

0. 44700-06 

0. 47630-06 

0.2379D+01 

0.56310+02 

0.12230+00 

0.37550-05 

0.40080-05 

0.34960*01 

0.36780+03 

0.82710+00 

0.24500-04 

0.26210-04 

0.45260+01 

0.17970+04 

0.42600+01 

0.1 1950-03 

0.12830-03 

O.5445D+01 

0.62180+04* 

0.16030+02 

0.41210-03 

0.44520-03 

0.62300+01 

0.1404D+05 

0.4202D+02 

0.9244D— 03 

0.10110-02 

0.60610+01 

0.18360+05 

0.71510+02 

0.11920-02 

0, 13400-02 

0.73240+01 

0.13330+05 

0.6153D+02 

0.B554D-03 

0.98270-03 

0.76050+01 

0.12600+05 

0.32910+03 

0.52830-03 

0.12090-02 

FRUV * 

FRWV - 

‘ FRAV ■ 



0. 6004350+04 -0.6323120+03 -0.2100000+04 
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CURRENT TIME CYCLE 


FRAGMENT 


KINETIC ENERGY 


325 1 0*9050140+05 


WORK INPUT INTO RING TO TIHE STEP 325 ° 0.611771D+05 
RING KINETIC ENERGY AT TIHE STEP 325 - 0*3438920+05 
RING ELASTIC ENERGY TO TIME STEP 325 - 0.1543640+04 
RING PLASTIC WORK TO TIME STEP 325 * 0.2524430+05 
ENERGY STORED IN ELASTIC RESTRAINTS * 0.0 


325 T! ME= 0. 325000-03 

IV M PSI CM COPY 

1 0. 33910-+00 -0.27320+00 0.20220-01 0.3488D-02 0.33910+00 

2 0.37540+00 -0.13240+00 0.12240+00 -0.12540-02 0.15550+01 

3 0-36820+00 0. 14060+00 0.23750+00 -0.13470-01 0.27730+01 

4 0.27290+00 0.56570+00 0.29700+00 -0.14090-01 0.3996D+01 

5 0.15720+00 0- 91210+00 0.18230+00 0.26850-01 0.5189D+01 

6 0.38470-01 0.10860+01 -O.L379D-01 0.61210-01 0. 62400+01 

7 -0.7970D-01 0. 91660+00 -0.29260+00 0.2689D-01 0.6924D+01 

8 -0.23560+00 0-39560+00 -0.52120+00 -0.80850-01 0.71060+01 

9 -0.33480+00 -0.17520+00 -0.26830+00 -0.40130-02 0.70530+01 

10 -0.2781D+00 -0.33300+00 0.5995D-01 0.29410-02 0.72330+01 

11 -0.23120+00 -0.28010+00 0.81730-01 -0.20760-02 0.74200+01 

12 -0. 19520+00 —0 .21750+00 0.74500-01 -0.16840-02 0.74210+01 

13 -0.16650+00 -0.16770+00 0.52810-01 -0.25000-03 0.72150+01 

14- -0. 14270+00 -0.14070+00 0.33990-01 -0.1169D-03 0.68000+01 

15 -0.12170+00 -0.12690+00 0.23970-01 0.32140-03 0.61980+01 

16 — 0. 10210+00 -0.11570+00 0. 24850-01 0.59040-03 0.54350+01 

17 -0.84550-01 -0.59850-01 0.2507D-01 0.41970-03 0.45360+01 

18 -0. 6957D-0 1 -0.84130-01 G.2G06D-01 0. 74600-03 0.3520D+0L 

19 -0.5645D-01 -0.73040-01 0-14810-01 0. 70950-03 0. 24110+01 

20 — 0.4462D— 01 -0.66730-01 0.94300-02 0.57820-03 0.12380+01 

21 -0.3358D-01 -0.60880-01 0.10260-01 0. 80600-03 0. 33580-01 

22 -0.23740-01 -0. 55230-01 0.5959D-02 0.5919D-03 -0.11720+01 

23 -0.15030-01 -0.52720-01 0.37230-02 0.29210-04-0.23490+01 

24 -0.68790-02 -0.50860-01 0.1875D-02 -0.91300-05 -0-34670+01 

25 0.11980-02 -0.50400-01 -0.46280-03 0.82830-04 -0.44970+01 

26 0.9290D-02 -0.51310-01 -0.2203D-02 0.17820-03 -0.5415D+01 

27 0.17660-01 -0.53020-01 -0.43300-02 0.4L27D-03 -0. 61970+01 

28 0.26740-01 -0.57320-01 -C.8056D-02 0.35160-03 -0-68220+01 

29 0.3670D-01 -0. 62370-01 -Q.B328D-02 0.20000-03 -0.72750+01 

30 0.47220-01 -0.67130-01 -0.11280-01 0.26160-03 -0.75460+01 

31 0.58700-01 -0.75940-01 -0.17730-01 0.3600D-03 -0.76240+01 

32 0. 72060—01 -0.90760-01 -0.22460-01 0.21370-03 -0.7504D+01 

33 0.87830-01-0.10450+00-0.19530-01 0.43260-03-0.71970+01 

34 0.10530+00 -0.11120+00 -0.18740-01 0-5686D-03 -0.67140+01 

35 0.12400+00 -0.12220+00 -0*30500-01 0.34180-03 -0.60580+01 

36 0.14510+00 -0.14840+00 -0.49530-01 -0.10980-03 -0.5237D+0L 

37 0. 17060+00 -0.19400+00 -0.6596D-0L -0.16270-02 -0.42740+01 

30 0.20300+00 -0.24050+00 -0.7057D-01 -0. 20700-02 -0.32020+01 

39 0.2437D+00 -0.29310+00 -0.58710-01 -0.14180-02 -0.20570+01 

40 0. 2907D+CO -0.31000+00 -0.34400-01 0. 32520-03 -0.86890+00 

FRAG N0.*= FCGU » FCGW = ALFA * 

I 0.35035 1 C+01 0. 3200480+01 -0.1312500+01 


COPZ 

L 

H 

STRAIN! IN) 

STRAIN! OUT ) 

0.74270+01 

0.74290+04 

-0.36570+04 

0.22130-01 

-0.11610-01 

0.74160+01 

0.37330+04 

-0.27870+04 

0-2762D-01 

-0.1040D-QI 

0.73430+01 

0.10630+05 

— 0.3560D+04 

0.21120-01 

0.96090-03 

0.72410+01 

0.96190+04 

-0.42490+04 

0.16860-01 

0. 54630-01 

0.68750+01 

0.14820+05 

-0.32780+04 

0.9252D-02 

0.73790-01 

0.61860+01 

0.2234D+05 

-0.82360+03 

-0.52210-02 

0.86710-01 

0.51290+01 

0.20790+05 

0.41620+04 

0. 49630-03 

0.75640-01 

0.38850+01 

0.10680+05 

0.27850+04 

0.5925D-01 

-0.25040-01 

0.26440+01 

0.14720*05 

-0.45970+04 

0. 71840-01 

-0.36310-01 

0.14270+01 

0.47780+04 

-0.3235D+04 

0-414 ID-02 

-0. 31530-02 

0. 23120+00 

0.45490+04 

0.76050+03 

-0.71860-03 

0.16560-02 

-0.97780+00 

0.10620+05 

0.27720+04 

-0.25720-02 

0.45900-02 

-0. 21690+01 

0.8515D+Q4 

0.27390+04 

-0.24150-02 

0.38040-02 

-0.33050+01 

0.70820+04 

0.16000+04 

-0. 11660-02 

0.21430-02 

-0. 43530+01 

0.10360+05 

-0.1411D+03 

0.86020-03 

0.56850-03 

-0. 52910+01 

0.10720+05 

-0.35380+02 

0.77590-03 

0. 70270-03 

-0.60990+01 

0.10210+05 

0. 79910+03 

-0.12280-03 

0.15300-02 

-0.67540+01 

0.11860+05 

0.8376D+03 

-0.48670-04 

0.1683D-02 

-0.72360+01 

0.12790+05 

0.86180+03 

-0.94320-05 

0.17730-02 

-0.7532D+01 

0.13260+05 

-0.13120+03 

0.10500-02 

0.77870-03 

-0.7639D+01 

0.92890+04 

0. 68640+03 

-0.69470-04 

0.13500-02 

-0.7554D+01 

0.22830+04 

0.35580+03 

-0.21050-03 

0. 52530-03 

-0.72780+01 

0.5756 D+03 

0.29540+03 

-0.26580-03 

0.34510-03 

-0.68190+01 

0.23600+04 

0. 37460+03 

-0.2246D-03 

0.55000-03 

-0.61880+01 

0.11390+04 

0. 27760+03 

-0.20B5D-03 

0.3656D-03 

-0.54020+01 

0-13250+04 

0.33790+03 

-0.25810-03 

0.44070-03 

-0.44800+01 

0.57040+04 

0.59530+03 

-0.21680-03 

0. 10140-02 

-0. 34460+01 

0.0 24 3D +04 

0.45640+02 

0.52100-03 

0.61540-03 

-0.2325D+01 

0-56790+04 

0.47220+03 

-0.96780-04 

0.87960-03 

-0.11470+01 

0.49550+04 

0.10310+04 

— 0.7240D— 03 

0.14070-02 

0.50700-01 

0.68150+04 

0.75440+03 

-0.31020-03 

0.12500-02 

0. 12620+01 

0.74920+04 

-0.46860+03 

0. 10010-02 

0. 31970-04 

0.2431D+01 

0.8009D+04 

-0. 12570+03 

0.68200-03 

0*42210-03 

0.35390+01 

0.88540+04 

0.18780+04 

-0.13310-02 

0.25520-02 

0.45540+01 

0.11310+05 

0.26930+04 

-0.22250-02 

0.4064D-02 

0.54420+01 

0.83900+04 

0.24080+04 

-0.20470-02 

0.33750-02 

0.61730+01 

0.4B85D+04 

0.45720+03 

-0. 31320-03 

0. 12110-02 

0.67310+01 

0.55260+04 

-0.19080+04 

0.23460-02 

-0.15740-02 

0.71200+01 

0.38630+04 

-0. 30090+04 

0.45410-02 

-0. 34950-02 

0. 73450+01 

0. 13180+04 

-0.3961D+04 

0.10090-01 

-0.79760-02 

FRUV » 

FRWV = 

' FRAV = 


0.3356800+04 

-0.1758730+04 -0.210000D+04 




impact it« 527 element no. - 8 fragment no. « 

LOCATION ON ELEMENT = 0.374'743D+00 PENETRATION OIST 

IMPACT IT= 331 ELEMENT NO. = 8 FRAGMENT NO. * 


LOCATION ON ELEMENT a 0. 3194670+00 PENETRATION OIST 

IMPACT IT= 333 ELEMENT NO. = 8 FRAGMENT NO. * 

LOCATION ON ELEMENT = 0.293027D+00 PENETRATION OIST 

IMPACT IT- 336 ELEMENT NO. = 8 FRAGMENT NO. = 

LOCATION ON ELEMENT = 0.2S4672D+00 PENETRATION OIST 

IMPACT IT= 340 ELEMENT NO. = 8 FRAGMENT NO. = 

M LOCATION ON ELEMENT a 0.2061430+00 PENETRATION OIST 

M 

IMPACT IT= 341 ELEMENT NO. = 8 FRAGMENT NO. a 

LOCATION ON ELEMENT = 0.1939660+00 PENETRATION OIST 

IMPACT IT= 348 ELEMENT NO. = 8 FRAGMENT NO. = 

LOCATION ON ELEMENT = 0.1152530+00 PENETRATION OIST 

IMPACT IT* 350 ELEMENT NO. = 8 FRAGMENT NO. ■ 

LOCATION ON ELEMENT = 0.9402880-01 PENETRATION OIST 

IMPACT IT* 353 ELEMENT NO. * 8 FRAGMENT NO. » 

LOCATION ON ELEMENT = 0.6341900-01 PENETRATION OIST 

IMPACT IT* 354 ELEMENT NO. = 8 FRAGMENT NO. * 

LOCATION ON ELEMENT = 0.533236D-01 PENETRATION OIST 

IMPACT IT* 358 ELEMENT NO. = 8 FRAGMENT NO. » 

LOCATION ON ELEMENT = 0.1494610-01 PENETRATION OIST 


IMPACT IT = 358 NODE NO. = 9 FRAG NO * 1 PD 
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CURRENT TIME CYCLE 


FRAGMENT 


KINETIC ENERGY 


405 1 0-8493220+05 


WORK tNPUT INTO RING TO TIRE STEP 405 = 0.6682630+05 
RING KINETIC ENERGY AT TIME STEP 405 = 0. 3534920+05 
RINC ELASTIC ENERGY TO TIME STFP 405 « 0.1819170+04 
RING PLASTIC WORK TO TIME STEP, 405 = 0.2965790+05 
ENERCY STORFD IN ELASTIC RESTRAINTS * 0.0 


J= 4C5 TIME" 0.405000-03 

IV W PSI " CHI COPY 

L 0.4884D+00 -0. 36240+00 0.28320-01 0.35490-02 0.48840+00 

2 0.53540+00 -0.18760+00 0.13120+00 -0.24010-02 0.17040+01 

3 0. 53100+00 0.12570+00 0.25610+00 -0.18410-01 0.29230+01 

4 * 0.4242D+00 0.60650+00 0. 33190+00 -0.240BD-01 0.41490+01 

5 0-26420 + 00 C. i‘0210 + 0l C. 22240+00 0.18930-01 0.53560+01 

6 0.13400+00 0.12830+01 C. 79520-01 0.59100-01 0. 64470+01 

7 -0.14480-01 0.12640+01 -0*16970+00 0.5394D-01 0.7244D+01 

0 -0.19590+00 0.85850+00 -0.50940+00 -0.68230-01 0. 75370+01 

9 -0. 41320+00 0*14130+00 -0. 53420+00 -0. 1060D+Q0 0.73300+C1 

10 -0.45280+00 -0.39200+00 -C. 17090+00 0.13650-01 0.71470+01 

11 -0.36620+00 -0.4595D+00 0. 10640+00 -0.33200-02 0*72400+01 

12 -0.30590+00 -0.37840+00 0. 11100+00 -0.46560-02 0.72790+01 

13 -0.25860+00 -0.2926D+00 0. 99560-01 -0.34030-02 0.71250+01 

14 -0. 2206D+00 -0.22880+00 0.68490-01 -0.10310-02 Q.6757D+01 

15 -0-18870+00 -0.19300+00 0.45330-01 -0*52390-03 0*61840+01 

16 -C. 1602D+CO -0.17410+00 0.32B6D-01 0.2402D-03 0.54350+01 

17 -0.1336C+00 -0.16010+00 0i29640-0l 0.27060-03 0.4540D+01 

18 -C* 10950+00 -0* 1428D+G0 Q. 29710-01 -0. 10430-03 , 0.3529D+01 

19 -0. 88920-01 -0. 12210+00 0.28830-01 -0.22500-03 0*24260+01 

20 -0*71200-01 -0.10540+00 0.19820-01- 0.10920-03 0.12580+01 

21 -0.55230-01 -0. 96470-01 0'.1241D-01 0. 17660-03 0*55230-01 

22 -0.40590-01 -0. 90680-01 0.96570-02 0.52780-05-0*11500+01 

23 -C.2695D-01 -0.86070-01 0.67640-02 -0.4Q66D-04 -0.2327D+01 

24 -Q » 13940-01 -0. 80670-01 C.5905D-02 -0.3557D-03 -0.34470+01 

25 —0*17 190-02 *-0» 79390-01 -0.12640-02 -0.65500-03 -0*44780 + 01 

26 C.1032D-0L -C.81940-01 -0.30090-02 -0*43790-03 -0*53940+01 

27 0.2293D-01 -0.84620-01 -0*53330-02 0*50210-05 -0.6174D+01 

28 0*36540-01 -0.06750-01 -0*67240-02 0*28040-03 -0*68000+01 

29' 0.50850-01 -0*91750-01 -0*14450-01 0. 24190-03 -0*72520+01 

30 0 *’664 6 D- 01 -0*10660+00 -0*24000 T 01 0.-1588D-03 -0.7510D + C1 

31 0*84720-01 -0*12360+00 -0*22300-01 0.2565D-03 -0*75760+01 

32 0*10530+00 — 0 • 1346D+00 -0*20470-01 0.12510-03 -0*7456D+01 

33 0.12720+00-0*14220+00-0*23890-01 0.2454D-03 -0.71490+01 

34 C* 1 5040+00 -0*15620+00 -0*37280-01 -0.33370-03 -0*66530+01 

35 0.17630+00 -0*18800+00 -0.5S41D-01 -0*15520-02 -0.59740+01 

36 0*20730+00 -0*24310+00 -0*79150-01 -0.2570D-02 -0.51260+01 

37 0*24670+00 -0*30970+00 -0.88090-01 -0.35120-02 -0.41440+01 

3 B 0*29640+00 -0.3731D+00 -0.85130-01 -0*30420-02 -0.3062D + 01 

39 0*35580+00-0*41710+00 -0*69980-01 -0.14610-02 -Q.1912D+01 

40 0*42200+00 -0*42470+00 -0*38410-01 0.15160-02 -0.7213D+00- 

FRAG NO. PCGU - FCGW ** ALFA ® 

1 0.3756800+01 0.3O6O97D+01 -0.1480500+01 

IMPACT IT- 409 ELEMENT NO. * 9 FRAGMENT NO. *= 

LOCATION ON ELEMENT = 0.8906020*00 PENETRATION OlST 


COPZ L M STRAIN! IN) STRAIN10UT) 

0.73380+01 0*65330+04 -0.3760C+04 0*22180-01 . -0.11780-01 

0.73360+01 0*05080+04 -0*36850+04 0.2940D-01 -0^11040-01 

0.72790+01 0*60370+04 -0*35600+04 0.24020-01 -0.15420-C2 

0. 72090+01 0-93080+04 -0. 43010+04 0*17610-01 0.53640-01 

0.68080+01 0.13220+05 -O.4270D+Q4 0.2011D-01 ' 0. 67010-01 

0*62570+01 0. 13480+05 -0*18690+03 0*77890-04 0.82140-01 

0»52BtD+01 0.11100+05 0*42360+04 -0.14220-01 0.98020-01 

0*40600+01 0*2 176D+Q5 0*38800+04 0*30040-01 0.37500-01 

0.2816D+01 0-74430+04 0*50120+03 0*81420-01 -0.38800-01 

0.15900+01 0.20890+05 -0.4149D+04 0.62040-01 -0. 29360-01 

0-3662D+00 0*15040+05 -0.11300+04 0.19590-02 0.42430-03 

-0.84330+00 0.13810+05 0.1125D+04 -0.65300-03 0.31160-02 

-0.20430+01 0.13050+05 0*33770+04 -0.36130-02 0.66550-C2 

-0.31950+01 0.78260+04 0.3154D+04 -0.3068D-02 '0.45840-02 

—0*42600 +01 0. 76480+04 0*19920+04 -0. 15330-02 0.25870-02 

-0.520BD+01 0*11790+05 0*51510+03 0*2 8020-03 0.13450-02 

-0*60210+01 0*90410+04 -0*11510+02 0*63510-03 0.61130-03 

-0*66840+01 0.41050+04 0*13990+03 0*1383D-03 0.42770-03 

-0.7160D+01 0.39170+04 0.14410+04 -0.12200-02 0.17600-02 

-0* 74900+01 0* 41780+04 0*11840+04 -0*93580-03 0.15120-02 

-0.76040+01 -0.55610+03 0*4382D+03*-0. 49140-03 0.41470-03 

-0*75220+01 -0*34190+04 0*46010+03 -0*71140-03 0.24000-03 

-0*72500+01 0*59500+02 0.1385D+03 -0.13920-03 0.14740-03 

-0*67950+01 -0* 10010+04 0*11490+04 -0.1257D-02 0.11190-02 

-0*61660+01 -0*72920+04 0.2790D+03 -0.7911D-03 -0.21420-03 

-0* 53790+01 -0*65820+04 0*36930+03 -0*83550-03 -0.71050-04 

-0*44580+01 0-18200+04 0*22190+03 -0.10390-03 0*35490-03 

-0*34240+01 0*55610+04 0.12350+04 -0*09340-03 0.1660D-02 

-0*23030+01 0*43200+04 0*15250+04 -0*12,790-02 0.1874D-02 

-0*11220+01 0.4745D+04 -0*27320+03 0*60960-03 0*44600-04 

0.84720-01 0*51850+04 -0. 29f40+03 0*65870-03 0.5608D-04 

0*12670+01 0.5730D+04 0.5456D+03 -0*16910-03 0.95900-03 

0*24560+01 0*55400+04 0,21390+04 -0.18300-02 0.25940-02 

0*35590+01 0*52480+04 0*30950+04 -0.32020-02 0.41140-02 

0.4S58D+OL 0*41350+04 0.26190+04 .-0.2850D-02 0*36710-02 

0*54190+01 0*13370+04 0.12120+04 -0,12960-02 0*16510-02 

0.6124D+01 0.42470+04 -0*75390+03 0*69510-03 -0.85700-04 

0.66630+01 0*74730+04 -0.23750+0* 0*30510-02 -0.1961D-02 

0*70360+01 0.83920+04 -0.35440+04 0.6196D-02 -0.42460-02 

0.72520+01 0.1078D+05 -0. 37430+04 0.13970-01 -0.80660-02 

- FRUV = FRHV * FRAV * 

0.2989580+04 -0.1722640+04 -0. 2100000+04 

l 

* 0. 1164200-03 



2X4 


CURRENT- TIME CYCLE 

* FRAGMENT 


KINETIC ENERGY 

605 

1 



0.7013410+05 

WORK INPUT INTO RING 

TO T IMF STEP 

605 

. 

0*8162440+05 

RING KINETIC ENERGY 

AT TIME STEP 

605 

M 

0.4091190+05 

RING ELASTIC ENERGY 

TO TIME STEP 

605 

= 

0.2076330+04 

RING PLASTIC WORK TO 

TIME STEP 

605 

a 

0. 3863610+05 

ENERGY STORED IN ELASTIC RESTRAINTS 


* 

o.c 

l« 605 T IMF= 0.605000-03 




V w 

PSI 

Chi 

COPY 


1 0. 89780+00 -0.6013D+00 0.34050-01 0*30270-02 0*89760+00 

2 0.5745D+QO -C » 34400+00 0*14960+00 -0.50000-02 0.21130+01 

3 0. 98110 + 00 0 *67490-01 0.28200+00 -O.Z’SQlD-Ol 0.33330+01 

4 C. 86060+00 0.65520*00' 0.37470+00 -0.41640701 0.45600+01 

5 0.6772D+CQ C. 12090+01 0.30670+00 -0.25630-02 0.57650+01 

6 0.45210+00 0 , 16510+01 0.20130+00 0.38660-01 0.69320+01 

7 C. 21960 + 00 0. 18510+01 -0.55480-02 0167160-01 O'.7056D+O1 

8 -0.22720-01 0. 16920+01 -0. 31810+00 0.73020-02 0.835BD+01 

9 -0. 30870+00 0.11620+01 -0.57120+00 -0. 1249D+00 0. 83330+01 

10 -0.61550+00 0.34140+00 -0.70660+00 -0.22060+00 0. 70460+01 

11 —0.78290+00 -0.47530+00 -C. 41200+00 -0.66920-01 0.77250+01 


12 -C.684CO+CO -0.83840+00 0.2384D-01 0. 17020-01 0.68840+01 
t3 -0.5619D+00 — 0 *77 IOD+00 0.1900D+00 -0.17960-01 0.6764D+01 

14 -0.47440+00 -0.61850+00 0.1885D+00 -0.17360-01 0.65250+01 

15 -0.40600+00 -0. 47730+00 0.1541D+00 -0.96630-02 0. 60820+01 

16 -0.34800+00 — 0 .3796D+00 0.10600+00 -0. 52300-02 0.5422D + 01 

,17 -0.29770+00 -0. 32420+00 0.70850-01 -0. 23260-02 0.45760+01 

18 — 0. 25150+00 -0. 29350+00 0. 53680-01 -0. 11310-02 0.35870+01 

19 -O-2C85O+G0 -0.26970+00 0.46950-01 -0.86800-03 0.24940+01 

20 -C. 16910+00 -0.24530+00 0.4226D-01 -0.98730-03 0. 13330+01 

21 -0 .13310+00 -0.22280+00 C. 34190-01 -0.37B50-03' 0.13310+00 

22 -C. 10010+00 -0.20130+00 0.31330-01 -0. 14110-03 -0.10740+01 

23 -C. 70290-01 -0.17990+00 0.25630-01 -0.51900-04 -0.2257D+01 

24 -C. 43240-01 -0.16340+00 0.1549D-01 0.29410-03 -0. 33830+01 

25 -C. 17690-01 -0. 1584D+00 0.91670-03 0.5374D-03 -0.4419D+01 

26 ,0.00320-02 -0.16520+00 -Ci9483D-02 0.46020-03-0.53340+01 

27 0.35250-01 -0. 17730+00 -0. 15220-01 0.28890-03 -0.61070+01 

28 C. 64440-01 -0. 18760+00 -0.1582D-O1 0. 50560-03 -0.67230+01 

29 c. 95100-01 -O.1967D+O0 -0.1935D-01 0.2492D-03 -0.71650+01 

30 C.1269D+0Q -0.2042D+00 -0.22310-01 -0. 52080-04 -0.7423D+01 

31 0. 15950+00 -0.21280+00 -0.30320-01 -0.26390-03 -0.74070+01 

32 0.I936D+00 -0. 23110+00 -0.4675D-01 -0-90120-03 -0. 73470+01 

33 0.23C9D+00 -0.27070+00 -0. 76380-01 -0.24030-02 -0. 69940+01 

34 0.27390+00 -0.3410D+00 -0. 10400+00 -0.51710-02 -0.64330+01 

35 0.32670+00 -0.43270+00 -0.1250D+00 -0.76060-02 -0.56870+01 

36 C. 39240+00 -0. 53550+00 -0.1365D+00 -0.93400-02 -0.47890+01 

37 0*47330+00 -0.63240+00 -0.13370+00 -Q.8897D-02 -0.37710+01 

30 G.5690D+00 -0.70640+00 -0. 12250+00 -0.72270-02 -0.26680+01 

39 0.67630+00 -0.74380+00 -C. 97510-01 -0.45010-02 -0.15060+01 

40 0.7897D+00 -0.72120+00 -0.50050-01 0.61500-03 -0.3U7D + 00 

FRAG NO.** FCGU » FCGW * ALFA - 


COPZ L H STRAIN! IN ) STRAIN(OUT) 
0.7099D+01 0.52280+04 -0. 42670+04 0.24160-01 -0.13980-01 
0.71130+01 0.46510+04 -0.37520+04 0.30330-01 -0.13370-01 
0.70840+01 0.53730+04 -0.35800+04 0.25510-01 -0.56320-02 
0- 70540+01 0. 86190+04 -0.45810+04 0.22950-01 0*45240-01 
0.68100+01 0,65750+04 -0.41860+04 0.24220-01 0. 50590-01 
0.62930+01 0.61840+04 -0.15330+04 0.59520-02 0.73910-01 
0.54360+01 0.69760+04 0.78380+03 -0.99210-02 0.93270-01 
0.42840+01 0.87890+04 -0.30290+01 -0.17160-02 0.8220D-C1 
C. 30320+01 0.89920+04 0. 49620+04 0.17810-01 0.63030-01 
0.16660+01 0.73690+04 0.33780+04 0.69960-01 -0.27550-01 
0.78280+00 0.6Z66D+04 -0. 43460+04 0.9154D-Q1 -Q.5206D-C1 


-0.39780+00 0.13220+04 -0.51C5D+04 0. 30300-01 -0.24740-C1 

-0. 16070+01 0.31710+04 -0.18040+04 0.55910-03 0. 10450-02 

-0.27920+01 0.45290+03 0. 22210*04 -0*50450-02 0.63010-02 

-0.39170+01 0.24780+04 0.30470+04 -0.63070-02 0.88340-02 

-0.49300+0L 0.99400+03 0.38610+04 -0.60420-02 0.62400-02 

-0.5792D+01 0.13120+04 0,27420+04 -0.27450-02 0.29260-02 

-0.6485D+01 0.23000+04 0.10750+04 -0-9526D-03 0.12700-02 

-0.70020+01 0.22290+04 0.75070+03 -0.62260-03 0.92990-03 

-0.73360+01 0.25060+04 0.12910+04 HM 1620-02 0.15070-02 

-0.74770+01 0.4399D+04 0.45630+03 -0.16860-03 0.77510-C3 

-0.74220+01 0.47500+04 0.9114D+03 -0.61500-03 0^12700-02 

-0.71740+01 0.57040+04 0.16210+04 -0.12830-02 0. 20690-02 

-0.67350+01 0.55650+04 0.23270+04 -0.20220-02 0.27890-02 

-0.61120+01 0.42690+04 0. 16600+04 -0.14220-02 0.20100-02 

-0.53220+01 0.4931D+04 0.91510+03 -0. 60620-03 0. 12860-C2 

-0.4393D+01 0.73650+04 0.96200+02 0-40960-03 0.60B5D-03 

-0.33530+01 0.60940+04 0.56510+03 -0.26310-04 C. 11420-02 

-0.22280+01 0.67770+04 0.47400+03 -0.2294D-04 0.95720-03 

-0.10470+01 0.52370+04 0.12000+04 -0.962SD-03 0.16850-02 

0,15950+00 0.44880+04 0.262BD+04 -0.24070-02 0.3026D-02 

0.13600+01 0-44320+04 0.34420+04 -0.45010-02 0, 52900-02 

0,25150+01 0. 32470+04 0.30040+04 -0.43580-02 0.47770-02 

O.3505D+O1 0-25620+04 0.21270+04 -0.32360-02 C. 36050-02 

0.45360 + 01 0.16170+04 0.13020+04 -0-1661D-02 0. 21360-02 

0.53440+01 0.79120+03 -0.66260+03 0.60430-03- -0.3241D-03 

0.59960+01 0.14700+04 -0.Z072D+Q4 0.20670-02 -0.16400-02 

0.64900+01 0.35340+04 -0.32840+04 0.4445D-02 -0.38000-02 

0.68250+01 0.23020+04 -0.38080+04 0-8551D-02 -0.71340-02 

0.70160+01 0.20000+04 -0-43730+04 0. 16350-01 -0.11420-01 

FRUV = * FftWV ■ FRAV = 


1 0.423686D+01 0.2749000+01 -0.1900500+01 0.1909290+04 -0.1351210+04 -0.2 10000D+04 



SIC 


645 


1 


0.6920670+05 


WORK INPUT INTO RING TO TINE STEP 645 * 0.0255100+05 
RING KINET IC FNERGY AT TIME STEP 645 » 0. 4025440 + 05 
RING ELASTIC ENERGY TO TIME STEP 645 * 0.2136150+04 
RING PLASTIC WORK TO TIME STEP 645 = 0. 4016130+05 
ENERGY STORED IN ELASTIC RESTRAINTS * 0.0 


J= 645 T I NF= C.645O0C-03 

IV H PSI CHI COPY COPZ L M STRAIN! INI STRAIN! OUT I 

1 0.90510+00 -0.64770+00 0. 35940-01 0. 26400-02 0.98510+00 0.7052D+01 0.1038D+04 -0.38460+04 0.2344D-01 -0.13840-01 

2 0.1067D+CL -0.37400+00 0.14890+00-0,53840-02 0.2200D+01 0.70680+01-0.12400+04-0.37400+04 0.29990-01 -0.13940-01 

3 0.10770+01 0.50570-01 0.28190+00 -0. 25880-01 0.34200+01 C. 70380+01 0,98100+02 -0.42190+04 0.25870-01 -0.67120-02 

4 C. 45640+00 0. 65690+00 0.3790D+00 -0.4401D-01 0,46460+01 0. 70120+01 0.11560+04 -0.4219D+04 0.23320-01 0.40170-01 

5 0.76290+00 0.1241D+01 D. 3273D +00 -0. 1 0740-01 0. 58720+01 0.6785D+01 -0.90150+03 -0.25670+04 0.22160-01 C.5901D-01 

6 0.52180+00 0.17180+01 0.21440+00 0.35630-01 0.70280+01 0.62900+01 0.11440+04 -0.15470+04 0.56200-02 0.73550-01 

7 0.27550+00 0.19380+01 C.7633D-02 Q.666BD-01 0.79600+01 0.54420+01 0.51110+04 -0.20240+04 -0,62980-02 0.8910D-01 

8 0.20980-01 C.181BD+01 -0.28150+00 0.18340-01 0.84900+01 0.43020+01 0,22070+04 0. 80760+03 -0.30070-02 O.0258D-OI 

9 -0.2714D+00 0.13380+01 -0.53970+00 -0.10620+00 0.85I20+CI C. 30510+01 0.29130+04 0.48S6D+04 0.71700-02 0.67530-01 

10 -C. 60230+00 C. 53710+00 -0.72080+00 -0. 23290+00 0. 80420+01 0. 18830+01 0. 72700+04 0.41270+04 0.58270-01 -0.95750-C2 

11 -C. 83020+00 -0.3454D+00 -0.51590+00 -0. 1 I17D+00 0.73550+C1 0. 83020+00 0.53280+04 -0.15620+03 0.87150-Dl -0.47790-01 

12 -C.7764D+C0 -C. 66700+00 -0.10680+00 0.13780-01 0.68700+01-0.30210+00 0. 80750+04 -0. 50180+04 0.61380-01 -0.39370-C1 

13 -C. 63060+00 -0.67700+00 0.1986D+Q0 -0.19C8D-01 0.66040+01 -0.15090+01 0.7410D+04 -0.27990+04 0.22700-02 -0.1701D-C3 

14 -C.5296D+CO -0.71820+00 0. 20600+00 -0.20550-01 0.64610+01 -0.26980+01 0.36490+03 0.91940+03 -0.37060-02 0. 49490-02 

15 -0.45210+00 -0.55730+00 0.1797D+00 -0.14160-01 0.60440+01 -0.38330+01 -0.51000+03 0.37240+04 -0.77570-02 0.9533D-C2 

16 -0.38780+00 -0. 43800+00 0.12740+00 -0.62270-02 C.54090+01 -0.48610+01 -0.53130+03 0.40790+04 -0-71240-02 0.70000-02 

17 -C. 33200 + 00 — 0.36 750*- 00 0.8463D-01 -0.37500-02 0.45790+01 -0.57370+01 -0.18310+04 0.31030+04 -0.34620-02 0.31380-02 

18 -C. 28100*00 -0.32730+00 0.6466D-Q1 -0.2150D-02 0.3598D+01 -0.64410+01 -0.17010+04 0.19050+04-0.20870-02 C.IB53D-C2 

19 -0.2344D+00 -0.29670+00 0.52730-01 -0.16360-02 0.2511D+01 -0.69690+01 -0-21300+04 O.1903Q+O4 -0.21980-02 0.19040-02 

20 -0. 1911D+C0 -0. 27470+00 0.4033D-01 -0.12160-02 O.nSOD+Ol -0.73040+01 -0.29030+04 0.74950+03-0.97510-03 0.5748D-03 

21 -0.15060+00 -0.2562D+00 0.3565D-01 -0.68970-03 0.15060+00 -0. 74440+01 -0.31430+04 -0.17000+03 -0.40B90-04 -0.39240-03 

22 -0. 11310+00 -C. 23330+00 0.36710-01 -0. £2770-03 -0.1056D + CI -0.73930+01 -0.22350 + 04 0.4629D + 03 -0*63270-03 0. 32460-03 

23 -0.79670-Cl -0.2044D+00 0.3381D-01 -0.83550-03 -0.22400+01 -0.71530+01 -0.15830+04 0.23760+04 -0-25660-02 0.2348D-02 

24 -0.50200-01 -0.10170+00 0.18950-01 -0.54730-03 -0. 33690+01 -0.67220+01 -0.42180+04 0.30500+04 -0.37240-02 0. 29870-02 

25 -0.22790-01 -0.17700+00 -0.13630-02 -0*28910-03 -0.44030+01 -0.61000+01 -0.42480+04 0.19520+04 -0.23110-02 0.17250-02 

26 0.54600-02 -0. 105OD+OO -C. 13590-01 -0.17710-03 -0.53150+01 -0.53O7D+O1 -0.14580+04 0.27060+03 -0.38850-03 0.L8760-C3 

27 0.3616D-01 -0.2C43D+00 -0.15340-01 -0.58670-04 -0.60850+01 -0.43770+01 0.29400+03 -0.43520+03 0.47030-03 -0.42970-03 

28 C. 68950-01 -0.2123D+00 -0.12620-01 0.13860-03-0.67030+01-0.33380+01 0.18190+04 0.29600+03-0.18070-03 C. 43150-03 

29 C. L026D+-C0 -0.21450+-00 -0.14470-01 0 . 2378 D-05 -0 .7 1 5 10+0 1 -0.22160+01 0.36990 + 04 0. 1 7 13D+04 -0. 1 S16D-02 0.20260-02 


30 C. 13660+00 -0.21910+00 -C.2518D-01 -0.14830-03 -0*74100+01 -0*10350+01 0.41060+04 0.18060+04 -0.15040-02 0*2150D-C2 

31 0. 17160+00 -0. 23220+00 -0.36480-01 -0.39630-03-0.74600+01 0*17160+00 0.25230+04 0.29020+04-0*29250-02 0.33970-02 

32 O.2CB9D+C0 -0.25680+00 -C.5562D-OL -0.11930-02 -0.73190+01 0.13710+01 0.41770+04 0.35660+04 -0. 47590-02 0.56530-C2 

33 0. 25C20 + GO -0.30660 + 00 -0.87120-01 -0.32080-02 -0.69540+01 0*25230+01 0.62790+04 0*30690+04 -0.42320-02 0*5195D-02 

34 C. 29860+00 -0.3865D+0C -0. 11570+00 -0.61980-02 -0. 63810+01 0.35860+01 0.91830+04 0.21890+04 -0. 2843D-02 0.42050-02 

35 0.35910+00 —0,409 10+00 -0.13700+00 -0.87860-02 -0.56230+01 0.45280+01 0.76200+04 0.6635D+03 -0. 50770-03 0.1690D-0Z 

36 C.4322D+00 -0*59830+00 -0*14450+00 -0.98500-02 -0.47160+01 0.53270+01 0.59380+04 -0.48200+03 0.77230-03 0.21740-03 

37 0.52220+00 -0.65870+00 -0.14280+00 -0.56080-02 -0.36930+01 0. 59710+01 0.58230+04 -0.23240+04 O.2620D-O2 -0*16010-02 

38 0.62760+00 -0.77460+00 -0.L301O+0D -0.77350-02 -0.25850+01 0*64550+01 0. 58670+04 -0.32820+04 0.49100-02 -0.3773D-02 

39 C . 74490 + CO -C.61C0D+00 -0.10380+00 -0. 49610-02 -0.14210+01 0.67830+01 0.60470+04 -0-39770 + 04 O.97C4D-02 -0. 73560-02 

40 0.86840+00-0.76170+00-0.52160-01 0.9698D-03 -0.22460+00 0.69690+01 0.40020+04 -0.44400+04 0.17160-01 -0*11940-01 

FRAG N0.« PCGU - FCGH - ALFA - FRUV = FRHV - FRAV - 

1 0.4311140+01 0.2696200+01 -0. 1984500+01 0* 183377D+04 -0.1305030+04 -0.2103000+04 


IMPACT IT = 646 NODE NO. » 11 FRAG NO « 1* PD = 0.2125520-04 


LARGEST COMPUTEO STRAIN * 0.9842280-01 OCCURS AT THE OUTER SURFACE KIDSPAN OF ELEMENT * 7 AT TIME ISEC.I = 0.3020000-03 

40 CAROS PUNCHED DURING THIS RUN FOR CONTINUATION, 



A. 6. 2 'Elastic Foundation-Supported Variable-Thickness 
Partial Ring (Deflector) Subjected to Single- 
Fragment Attack 

The geometry of the structure, as shown in Fig. A. 6, is a 90-deg partial 
ring of constant midsurface radius 8.733 in. and width 1.5 in. The thickness 
of the ring varies linearly from 0.3 in. at the "ideally hinged-fixed end to 
0.1 in. at the free end. A portion of the ring consisting of a sector of 
27 degrees from the free end is supported by a uniform elastic foundation. 

This foundation consists of arbitrarily chosen normal and tangential k^ 
stiffnesses equal to 1500 psi and 3000 psi, respectively. 

The ring material is considered to be elastic, perfectly-plastic 

g 

(EL-PP) with an elastic modulus of 29 x 10 psi and a yield stress of 80,950 

psi. For purposes of illustration, the strain-rate constants of the ring 

material are chosen to be those of mild steel: D = 40.4 and P = 5. The mass 

-3 2 4 

density of the material is 0.732 x 10 (lb-sec )/in . The "critical strain" 
is assumed to be 20 per cent. 

Ten equal-length finite elements axe to be used to model the partial 

ring. 

The attacking fragment is identical to that considered in -Subsection 
A. 6.1. The presence of fragment-ring surface friction is considered by the 
use of a value of 0.5 (arbitrarily) for the coefficient of friction jl. 

The CIVM-JET-4A program will be used to calculate the structural 
response of the ring and the motion of the fragment, using a time step of 1 
microsecond. It has been calculated from the geometry of the ring structure 
and the fragment geometric and initial velocity properties that no impact will 
occur before 593 ysec after fragment release (which is assumed to occur at 
the condition (instant) shown in Fig. A. 6). To expedite the calculation, the 
fragment is advanced to its position at 575 psec after release by the use of 
the appropriate input value for TPBIM. Printout of structural response and 
fragment position data is desired starting at 5 cycles after TPRIM at inter- 
vals of 40 cycles thereafter until 600 computational cycles have been com- 
pleted. 
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Card 


Card 


Card 


The energy accounting option will not be used for this example. 
A. 6. 2.1 Input Data 

The values to be punched on the data cards are as follows: 


B 

— 

0.150000 

D+01 

DENS 


0.732000 

D-03 

EXANG 

= 

0.900000 

D+02 

IK 

= 

10 


NOGA 

= 

3 


NFL 

= 

4 


NSFL 

= 

1 


MM 

= 

600 


Ml 

= 

5 


M2 

= ' 

40 


NF 

= 

1 


Y(l) 

= 

o.oooooo 

D+00 

Z(l> 

= 

0.873300 

D+01 

ANG (1) 

= 

0.000000 

.D+00 

H (1) 

. = 

0.300000 

D+00 


Format 


3D15.6 


815 


4D15.6 


Additional cards in same format until all 11 nodal points are described. 


Y{11) 
Z(ll) 
ANG (11) 
H (11) 


= 0.873300 D+01 
= 0.000000 D+00 
= 0.900000 D+02 
= 0.100000 D+00 
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Format 


Card 3 

DELTAT = 0.100000 D-05 


CRITS 

DS 

P 

Card 4 

EPS (1) 
SIG(l) 
Card 5 • 

FH(X) 

FCG(I) 

FCGX(I) 

FMASS(I) 

FMOI(I) 

Card 6 

TJNK(I) 

Card 7 

UDOT(I) 

WDOT(I) 

ADOT(I) 

TPRIM(I) 

CR(I) 

Card 8 

AXG(l) 
AXG(2) 
AXG(3) 
Card 9 

AWG(l) 
AWG (2) 
AWG (3) 


= 0.200000 D+00 
= 0.404000 D+02 
= 0.500000 D+Ol 

= 0.279138 D-02 
= 0.809500 D+05 

= 0.674000 D+01 
= 0.363000 EH-01 
= 0.000000 D+00 
'= 0.460000 D-02 
= 0.261000 D— 01 

= 0.500000 D+00 

= 0.640000 D+04 
= 0.000000 D+00 
= - 0.210000 D+04 
= 0-575000 D-03 
= 0.100000 EH-01 

= 0.1127016654 
= 0.5 

= 0.8872983346 

= 0.2777777778 
= 0.4444444444 
= 0.2777777778 


4D15.6 

4D15.6 

5D15.6 

D15.6 

5D15.6 

3F15.10 

3F15.10 
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Format 


4F15.10 

= -0.8611363115 
= -0.3399810435 
= 0.3399810435 

= 0.8611363115 

4F15.10 

= 0.3478548451 

= 0.6521451548 

= 0.6521451548 

= 0.3478548451' ' 

15 

= 1 (one prescribed displacement condition) 

215 


(Hinged-fixed support located at node 1) 
I 


= 1 (one elastic restraint) 

= 0 (no point elastic springs) 

= 1 (one uniform elastic foundation) 

= 0.300000 D+04 (tangential stiffness) 
= 0.000000 D +00 

= 8 (Uniform elastic foundation over 
= 3 elements 8, 9, 10) 

= 0.150000 D+04 (radial stiffness) 

= 8 
= 3 


315 


2D15. 6, 815 


D15 .6,815 


15 


= 0 

L input deck for this example should appear as follows: 


219 



00. 1 500C0D0Q 1 

00.7220000- 

•03 

CC. 5000000 

02 



10 3 4 

1 60C 

5 

40 1 




00,0000000 00 

00, 8733CC0 

Cl 

CC.CCOOOOD 

CC 

GO .3000000 

00 

00.136614D 01 

00. 862548D ' 

01 

-C.5CGOOGD 

ci 

OC.280000D 

00 

00.265864D 01- 

00.8305580 

01 

-C. 1800000 

02 

00.2600000- 

00 

00.3964700 01 

00.7781160 

Cl 

-rC.270000D 

C2 

00. 2400000 

00 

00.513313D 01 

CO. 7065 140 

Cl 

-0.3600000 

02 

00.2200000 

00 

00.617516D 01 

00.6175160 

Cl 

-C .4500000 

02 

CC.2COOOOD 

00 

00.7065140 01 

00.5133130 

01 

-0 . 540000D 

02 

0C.180C0OD 

00 

00.7781160 01 

00, 3S647C0 

Cl 

‘ -0.630000D 

02 

00* 1600000 

00 

00. 830558D 01 

00.2658640 

01 

-0 . 720000D 

02 

OC. 14C000D 

00 

00.862548D Cl 

00. 136614D 

Cl 

-C.8 10000D 

02 

00.1200000 

00 

00, 873300D Cl 

00,0000000 

CO 

. -C.5C0000D 

02 

C0.1C0000D 

00 

00. 100000D-05 

00.2000000 

00 

00.4G40000 

C 2 

00 • 5CG0C0D 

01 

00.2791380— G2 

CO. 8C55CCD 

C5 





00.6740000 01 

00.3630000 

01 

00 • COCOOOC 

GO' 

0C.46C000D-02 

00.50000CD 00 







00.640000D 04. 

00. QCOOCCO 

cc. 

-C. 2100000 

C4 

00.5750000- 

-03 

0.1127016654 

0.5 


0.8872983346 

* 


0.2777777778 

0.4444444444 

0.2777777778 



-0.8611363115 

-0.3355810435 

C. 3399810435 

0.8611363115 

0.3478548451 

0.6521451548 

0.6521451548 

0.3478548451 


L 

3 l 
10 1 

00.300000D 04 00.0C0CGCD CC 8 3 

00 . 150000D 04 8 3 

0 


00.261000D-01 
OO.IGCOCOO 01 



A. 6.2.2 Solution Output Data 


The following is the output obtained- as a result of the CIVM-JET-4A 
analysis of this partial ring example. 

The ring geometric and material properties, prescribed displacement con- 
ditions, and applied elastic restraint constants are output as well as the 
fragment geometric, initial velocity, and energy parameters, in order to provide 
a means of conducting an input-data check. 

The initial impact is observed to have occurred at 18 lisec after TPRIM 
along the length of element 6, approximately 55 degrees from the support 
(Bj = 55 deg) . 

The strain exceeds the -specified "critical" strain magnitude for the 
first time at cycle 245 in the location denoted by the asterisk (*) . 

The maximum strain of 8.44 percent occurs on the inner surface at the 
midspan of Element 5 at 600 ]isec after TPRIM. In this example, the strain 
responses were computed only at- the midspan station of each finite element.. 
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PARTIAL RING **J ET** OFFLECTION ANALYSIS 


RING PROPERTIES 

SUBTENDED ANGLE OF RING 

= 

0,9000000+02 

WIDTH OF RINGUN) 

* 

0 « L 500000+Gl 

DENSITY OF RING 


0.7320000-03 

NUMBER OF ELEMENTS 

m 

10 

NUMBER OF SPANWISE GAUSSIAN PTS, 

* 

3 

NUMBER OF CEPTHWISE GAUSSIAN PTS. 

n 

A 

Number of mechanical sublayers 

■ 

l 


STRAIN UJ - 0.2791 38D-0 2 STRESS tU **. 0.8C95G0D*Q5 


NODE NO. 

Y CCORD 

2 COdRD 

SLOPE 

RING THICKNESS AT NODE 1 * 

1 

0.0 

0.8733000*01 

0.0 

0. 3000000+00 

2 

0.1366140*01 

0.8625480*01 

—0. 1570800*00 

0.2800000+00 

3 

0.2690640*01 

C.830553D+01 

-Q.3l4159OtO0 

C. 2600000+00 

4 

0.3964700+01 

0.7781160*01 

-0.4712390*00 

0.2400000*00 

5 

0. E 133 130*01 

C.706514D*01 

-0.6203190*00 

0.2200000+00 

6 

0.6175160*01 

C. 6175160*01 

-0.7G5398D+00 

0.200000D*00 

7 

G.7C65 140+01 

0.5133130*01 

-0.9424780*00 

0.1800000*00 

8 

, ' 0.7781160+01 

0.3964700*01 

-0.1099560*01 

0.1600000+00 

9 

0.6305580*01 

0.2698640*01 

-0.1256640*01 

0. 140000D+00 

10 

0.8625400*01 

0.1366140*01 

-0.1413720*01 

0.1200000+00 ’ 

u 

6.8733000*01 

o.o 

-0.1570800*01 

0.1000000*00 

fragment prcpertifs 




frag.no. 

WIDTH CF FRAG*. 

MASS OF FRAG, 

MOMENT OF INERTIA OF FRAG, FCGY 

l 

0. 6740000+01 

0. 4600000-02 

0.2610000-01 0.0 

COLLISION 

PARAMETERS 



> 

FRAG.NO. 

VEL IN Y DIR. VEL 

IN Z OIR. ANG 

. VEL. COEFF. 

OF RESTIT. INITIAL KINETIC ENERGY 

1 

0,6400000*04 0.0 

-0. 

2100000*04 0 

. lOOOOOD+Ol 0.1517500*06 


FCGZ 

0. 363C 000+01 
COEFF. OF FRICT 


0. 500000D+00 



zzz 


HINCEO DISPLACEMENT CONDITION AT NODE => 1 

CONSTRAIN T$ (ELASTIC FOUNDAT ION/S PR TNG ) AS DESCRIBED BELOW 

SIZE CF ASSEMBLED HASS OR STIFFNESS MATRIX * 270 

THE VALUF OF THE TANGENTIAL. SPRING CONSTANT IS = 0.3000000+04 

THE VALUF OF THE RADIAL SPRING CONSTANT IS * 0. 1500000+04 

THF, VALUE OF THE TORSIONAL SPRING CONSTANT IS - 0.0 

CURRENT TIHF CYCLE FRAGMENT KINETIC ENERGY 

5 l 0*1517580+06 

WORK INPUT INTO RINg’tO TIME STEP 5 = 0.2910380-10 

RING KINETIC ENERGY AT TIME STEP 5 * 0.0 

RING ELASTIC ENEPCY TO TIME STEP 5 * 0.7C9540D-06 

RING PLASTIC WORK TO TIME STEP 5 = -0.7095100-06 

ENERCY S7GRE0 IN ELASTIC RFSTRAINTS « O.C 


STRAIN(OUT) 

0.0 

0.0 

o.o 

0.0 

o.o 

0.0, 

0.0 

0.0 

0.0 

0.0 


l C.3712OCO+01 0.3630000+01 -0. 12IB00D+0I 0.6400000+94 0.0 -0.2100000+04 

IMPACT IT* 18 ELEMENT NO. « 6 FRAGMENT NO. * 1 

LOCATION ON ELEMENT =* C. 9806720+00 PENETRATION DIST « 0.158228D-03 

IMPACT IT* 19 ELEMENT NO. « 6 FRAGMENT NO. - l 

LCCATION ON FLFHENT 0.9758970+0C PENETRATION DIST « 0.4425470-02 * 

IMPACT IT* 19 ELFMENT NO. « 5 FRAGMENT NO. * 1 

LOCATION ON FLEMENT * J 0.1539140+00 PENETRATION OIST * 0.1426830-02 


J= 5 TIME- 0.50000D-C5 


r 

V 

w 

PST 

CM I 

COPY 

COPZ 

L 

H 

STRAINIINI 

i 

O.C 

O.C 

C.O 

O.C 

0.0 

0.8733D+01 

0.0 

0.0 

0,0 

2 

c.c 

0.0 

0.0 

0.0 

0. 1366D+01 

0.86250+01 

0.0 

0.0 

0.0 

3 

c.c 

O.C 

0.0 

O.C 

0.26990+01 

0.83060+01 

0.0 

0.0 

0,0 

4 

c.c 

0.0 

0.0 

O.C 

0. 39650+01 

0.77810+01 

0.0 . 

o.o 

0.0 

5 

c.c 

O.C 

0.0 

O.C 

0.51330+01 

0*70650+01 

0.0 

o.o 

O'.O 

6 

c.o 

0.0 

c.o 

O.C 

0.61750+01 

0.6175D+01 

0.0 

0.0 

0.0 

7 

O.C 

0.0 

0.0 

O.C 

0.7065D+01 

0. 5133D+0L 

0.0 

0.0 

0.0 

e 

c.c 

0.0 

c.o 

0.0 

0.77810+01 

0.39650+01 

0.0 

o.o 

0.0 

9 

0.0 

0.0 

c.o 

O.C 

0.83060+01 

0.26990+01 

•0.0 

o.o 

0.0 

tc 

O.C 

0.0 

0.0 

0.0 

0.8625p+0I 

0.13660+01 

0.0 

0*0 

0.0 

n 

c.c 

FRAG 

O.C 

NO.* FCGU 

c.o 

0.0 

FCGW * 

0.87330+01 
ALFA * 

0.0 

FRUV * 

FRWV 


FRAV * 
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CURRENT TIMF CYCLE , FRAGMENT KINETIC ENERGY 

45 1 0.1122310+06 

WORK INPUT INTO RING TO TIME STEP 45 * O.SOSaeOO’+OS 

RING KINETTC ENERGY AT TIME STEP 45 * 0.1997360+05 

PING ELASTIC ENERGY TG TIMF STEP 45 * 0. 1250940+04 


RING PLASTIC WORK TO TIME STEP 45 * 0.1830310+05 

ENERGY STEREO IN ELASTIC RESTRAINTS ■ 0.334094D+00 


45 TIME- C. 450000-04 


I 

V 

W 

PSI 

CHI 

COPY 

COPZ 

L M 

STRAINUNJ 

STRAIN! OUT ) 

1 

0,0 

0.0 

-0.15630-03 

0,11610-02 

o'.o 

0.8733D+01 

0.26710+05 0.1320D+0 2 

0.20960-02 

0. 21390-02 

2 

0.29960-02 

-0. 2396D-C3 

— 0*35600-03 

0.29100-02 

0. 13690+01 

0.8625D+01 

0.56160+05 0,49650+02 

0.468B0-02 

C. 48750-02 

3 

0.55720-02 

-0. 14240-02 

-0.13100-02 

0.65800-02 

0.27070+01 

C. 83010+01 

0*52480+05 -0,22480+03 

0.63680-0? 

0.60040-02 

4 

C. 19260- C 1 

-C. 31690-02 

0.16640-03 

0.91270-02 

0.39800+01 

0,77700+01 

0 .60110+05 -0,56570+03 

O.'l 1620-01 

C. 72920-02 

5 

0.3555D-0L 

0.15330-01 

0. 25560-01 

|0. 26510-01 

0.51710+01 

Q.7057D+Qt 

0.7162D+05 0.33670+02 

0.6 1860-0 1 

0.63750-01 

6 

0.42170-01 

0.29860+00 

0.1273D-0I 

0,31720-01 

0.64160+01 

0.63560+01 

0.47740+05 0.52810+03 

0.68920-02 

0.13490-01 

7 

0.14350-01 

0.14470+00 

-0.36440-01 

0.18100-01 

0.71910+01 

0. 52070+01 

0.2899D+05 -0.20930+03 

0. 50910-02 

C. 24970-0 2 

8 

0.3461D-02 

0.64380-0? 

-0.16490-01 

0.8409D-02 

0.77880+01 

0.39650+01 

0.29260+05 -0.13930+03 

0.5338D-02 

0.36300-02 

9 

C.5034D-C2 

C.1826D-02 

-0. 82490-03 

-0.41110-03 

0.6310D+01 

0.26910+01 

-0. 39560+04 -0.93300-01 

-0.69880-03 

-C.7Q03D-C3 

10 

0.7091D-02 

0.8310D-03 

-0,72090-03 

-0,43550-02 

0.86270+01 

0. 13590+01 

-0.56510+04 -0.59720+00 

-0.12160-02 

-0.12300-02 

11 

0.41110-02 

C.3CQ30-03 

-0.4l25b-03 

-0. 33900-02 

0.87330+01 

—0.41 110-02 





FRAG NO, 

FCGU = 

* FCGW « 

ALFA - 

FRUV * 

FRWV * FRAV * 



1 0.393900D+01 Q.3616B3D+01 -0.1 296ZID+01 0. 5327300+04 -0. 4073810+03 -0.1885820+04 

CURRENT TIME CYCLE FRAGMENT KINETIC ENERGY 


85 1 0.1 12231D+06 

WORK INPUT INTO PING TO TIME STEP 85 * 0.3952800+05 

RING KINETIC EN^RCY AT TIKE STEP 85 *> 0.1U4100+05 

RING ELASTIC ENERGY TQ TIME STEP 85 » 0.123268C+04 

RING PLASTIC WQRK TO TIME STEP 85 = 0.2714240+05 

ENERGY STORED IN ELASTIC RESTRAINTS o 0.U8876D+02 


J= 65 TIMF* C.850000-C4 


I 

V 

W 

PSI 

Chi 

COPY 

COPZ 

L M 

strainiini 

strainioutj 

1 

c.c 

0,0 

-0‘.30960-01 

0.15200-01 

0.0 

0. 07330+01 

0,72350+05 -0*91760+03 

0.16040-01 

0.11030-01 

2 

0.21230-01 -0.25530-01 

-C. 73130-02 

0.13540-01 

0.13830+01 

0.85970+01 

0.69570+05 -0.51920+02 

0.10620-01 

0.11080-01 

3 

C.42C3D-01 -0.23280-01 

-0.97070-02 

0.14010-01 

0.27280+01 

C. 02610+01 

0,66680+05 -0.20860+03 

0.13260-01 

0.9799D-02 

4 

0. 6556P-C1 -0.35340-01 

0.65680-02 

0.1777D-0I 

0. 40070+01 

0.7720D+01 

0. 61670*05 -0.80260+03 

0.30540-01 

0.45410-02 

5 

0.96C5D-01 

0. 72970-01 

0. 16310+00 

0.53690-01 

0.5254D+Q1 

0.70680+01 

0.39430+05 0-64460+03 

0.64270-01 

0.74810-01 

6 

0.3476D-CI 

0.5765D+00 

C. 88290-01 

0,82660-01 

0.66070+01 

0.65S6D+01 

0.35680+05 0.13410+04 

-0.80740-03 

0. 33720-01 

7 

-0. 29490-01 

0.3286D+C0 

-0,16470+00 

0.22590-01 

0.73220+01 

0.53560+01 

0.35580+05 -0.28500+03 

0.17420-01 

0,85710-02 

8 

-C.653 ID-01 

0.30650-01 

-0.956 80-01 

0.28470-01 

0.77790+01 

0.40370+01 

0.26880+05 -0.16640+03 

0.16240-01 

0. 56390-02 

9 

-0.4567D-01 -0.58S4D-02 

0.83970-03 

0. 13320-01 

0.82820+01 

0.27390+01 • 

0.13790+05 -0.17350+02 

0.50470-02 

0.48460-02 

10 

-0.35350-01 -0.5205D-02 

0.26930-02 

0.68730-02 

0. 86150+01 

0.14000+01 

0.66840+03 0.2576D+01 

0. U03D-03 

0.16910-03 

it 

-0.3135D-OL -0.19190-02 

0. 15820-02 

0.7770D-02 

0.87310+01 

0.31350-01 





FRAG NO .= FCGU « f FCGW » ALFA,* FRUV » FRWV - FRAV « 

1 0.4152090+01 0.3597340+01 -0.13T1640+0 t 0. *5327300+04 -0.4873810+03 -0.1885820+04 


IMPACT IT= 119 ELEMENT NO. - 7 FRAGMENT NO. - ' 1 

LOCATION ON ELEMENT * 0.35U80D+00 PENETRATION OIST - 0. 1405380-02 

IMPACT IT« 121 ELEMENT NO. * 7 FRAGMENT NO. - 1 

LOCATION ON ELEMENT * 0. 3501030+00 PENETRATION DfST * 0.1080740-02 



szz 


CUPRFNT TINE CYCLE 


FRAGMENT 


KINETIC FNERGY 


125 1 0.968516D+C5 

WORK INPUT INTC RUG TO TIKE STEP 125 =« 0.5490690+05 

R I AG KINETIC ENERGY AT TIME STEP 125 * 0. 138231D+Q5 

RING FL4STIC ENERCY TG TIKE STEP 125 * 0.5980900+03 

RING PLASTIC WORK TO TIME STEP IZ5 * 0.4031460+05 

ENEflCY STGRFC IN ELASTIC RESTRAINTS 3 0.1711760+03 


J- 12 5 T I N F= 0.125000-03 

r V U PSI 

Ch! 

COPY 

COPZ 

L 

H 

STRAINUNI 

STRA IN(CUT) 

1 

C.C 

0.0 -0.90050-01 

0.9662D-0Z 

0.0 

0.87330+01 

0.32160+05 

-0.14040+04 

0.19410-01 

0.6 8430-02 

2 

0.23060-01 

-0. £6680-01 —0. 30560— Cl 

0. 12830-01 

0.13750+C1 

0.8536D+0L 

0.24320*05 

-0.78940+03 

0.11550-01 

0.7963D-02 

3 

C. 53200-01 

-0.10760+00 -0.12490-01 

0.1226D-0L 

0.27160+01 

Q.8187D+01 

0.15280+05 

-0. 1344D+04 

0.15800-01 

0. 41350-02 

4 

0.05300-01 

-0. 06610-01 0.51340-01 

0. 16260-01 

0.40010+01 

0.76650*01 

0.U060 + 05 

-0.75300+03 

0.34390-01 

-0*94060-03 

5 

C, 97300-01 

0. 14790+00 0. 26140+00 

0.26400-01 

0. 52990+01 

0.71280+01 

0.11260+05 

0.12590+04 

0.5873C-01 

0.75570-Ci 

6 

-C. 46950- C2 

0*70930+00 0.14560+00 

0.71160-01 

0. 66730+01 

0.66800+01 

0.4280D+05 

0. 13800 + 04 

-0.65030-02 

0.45Q1D-0L 

7 

-C. 88900-01 

0* 50610+00 -0.2344D+0C 

0. 43960-02 

0.74220+01 

0.55030+01 

0.4825C+05 

-0.43050+02 

0.19790-01 

0. U710-C1 

8 

-0. I639D+00 

0*9909 D-01 -0. 17150+00 

0.14130-01 

0. 77950*01 

0.4156D+01 

-0.49040+05 

-0.25740+02 

0.27550-02 

-0.16720-01 

9 

-0. L6990+C0 

-0.4042D-C1 0.56530-02 

0.71080-02 

0.82150+01 

0. 28480+01 

-0.17090+05 

-0. 11580+03 

0.38960-03 

-0.14190-02 

10 

-0. 16260+00 

-0. 26840-01 0.24380-01 

0.A994D-02 

0.85740+01 

0.15230+01 

-0.38950+04 

0.30670+02 

— 0. 1 1640-02 

-C* 46440-03 


11 -G. 1577O+C0 **0* 11070-01 0. 15200-01 0. 53810-02 0.8721D+01 C. 15770+00 

FRAG NO .= FCGU ■ FCGW « ALFA * fRUV = FRWV « FRAV * 

l 0. 436263D+01 0.3578360+01 -0.1446380+01 0. 4910580+04 -0. 4027390+03 -0.1772070+04 

CURRENT TIME CYCLE FRAGMENT KINETIC ENERGY 

165 1 0.968516D+05 

WORK INPUT INTO RING TO TIME STEP 165 « 0.5490690+05 

RING KINETIC ENERGY AT TIME STEP 165 * 0. 1210630+05 

RING ELASTIC ENERGY TO TIME STEP 165 « 0. 4926560+03 

RING PLASTIC WORK TO TIKE STEP 165 = 0. 4183490+05 

ENERGY STORED IN ELASTIC RESTRAINTS " 0. 4730400+03 

N 1 


J» 165 TIME* C. 165Q0D-C3 

I V W PSI Chi COPY COPZ L M STRAINIIN) STRAINIOUTJ 

1 0.0 0-0 -0.13640*00 0.34060^02 0.0 0.07330*01 0.07100*04 “0.17400*04 0.1810D-01 C.44330-C2 

2 C. 19990-01 -0.15350+00 -0.71770-01 0.84080-02 0. 13620+01 0.8471D+01 -Q.8230D+04 -0.33730+04 0.13660-01 0.3025D-03 

3 0.58630-01 -0.2C13D+00 -0.3937D-02 0.62830-02 0.26920+01 0.80960+01 -0.17670+05 -0.30240+04 0. 18620-01 -0.52380-02 

4 C. 94900-01 — 0. 1228D+00 0.1271D+00 0.51220-02 0.3994D+C1 0.76290+01 -0.37820+04 0.12990+03 0.3043D-01 -0.30010-03 

5 C.86130-G1 0.19970+00 0.30950+00 0.11750-01 0.53200+01 0. 71760+01 -0.60100+02 0.1191D+04 0. 57000-01 0.76400-01 

6 -0.46950-01 0.80310+00 C. 17660+00 0.67290-01 C.67100+01 0.67760+01 -0.57720+04 -0.84170+02 -0.7977D-02 0.3988D-C1 

7 -C. 14060+00 0.68080*00 -0.17120+00 0.24480-01 0.7540D+01 0.5652D+01 0*28930+05 0.12380+04 0.9994D-02 0. 17750-01 

8 -0.23170*00 O.3327D+C0 -0.23570+00 0.863&D-02 0.79720+01 C. 43220+01 0. 11180+05 -0.13420+03 0. 12350-01 -C.1091D-01 

9 “0.28530+00 -C. 52120-01 -0.26230-01 0.26010-01 0.81680+01 0.29540+01 0.96210+04 -0. 49530+03 0.02310-02' 0.16370-03 

10 — 0* 26 520+ CO -0.47430-01 0.58260-01 0.79620-0 2 *0.85370+01 0.16210+01 0. 64150+04 0.6999D+02 0. 54290-03 0.21390-02 

II -0.25 5 8D+C0 -0.21460-01 C. 37860-01 0.10760-01 0.8712D + 01 0.25580+00 

FRAG N0.= FCGU = FCGW » ' ALFA * FRUV * FRHV * FRAV = 

I C. 4559050+01 0*3562250+01 -0. 1517300+01 0.4910580+04 -0.402738D+03 -0.1772870+04 
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CUPRENT TIME CYCLE FRAGMENT KINETIC ENERGY 

205 1 0* 8360770+05 

WORK INPUT INTO RING TO TIME STEP 205 ■ 0. 6815000+05 

RING KINETIC ENERGY AT TIME STEP 205 » 0*1402200+05 

RING -ELASTIC ENERGY TO TIME STEP *205 * 0.626543C+03 

RING PLASTIC WORK TO TIME STEP . 205 * 0,5253260+05 

ENERGY STORED IN- ELASTIC RESTRAINTS * 0.9696860+03 


J= 2C5 TIHE= C.20500D-C3 


I ' , ^ 

W 

PSI 

CM 

COPY 

COPZ 

L 

H 

STRAINUN) 

STRAINIOUT) 

l c.c 

0.0 

-0. 18110+00 

-0,30640-0? 

o.o 

0.8733D+01 

0.28220+05 

-0.1823D+04 

Q. 1978D-Q 1 

0,5 B43D-02 

2 0. 18640-01 

-0.21210+00 

-0. 1 152D+00 

0.55650-02 

0.13510+01 

0. 84130+01 

0.13460+05 

-0.40170+04 

0.21110-01 

-0.33380-02 

3 C. 70750— Cl 

-0.29200+00 

0.90040-02 

0. 12730-01 

0-26760+01 

0. 80060+01 

0. 1 137D+05 

-0.27450+04 

0.26040-01 

-0.50400-02 

4 0,11670*00 

-0.14790+00 

0. 1 841D+0C 

-0.49570-03 

0.40010+01 

0.75960+01 

0.2857C+05 

0**94400+03 

0.31540-01 

C.5057D-C2 

5 C. 96790-01 

0 * 2 3560+00 

0i34l20+00 

0.30850-02 

0. 535004-0 L 

Q.7199D+01 

0.292204-05 

0.92530+03 

0.6075D-01 

0.70980-01 

6 — C. 6546D-C1 

0. £8910+00 

0.21 540+00 

0.60570-01 

0.67580+01 

0.68500+01 

0.32220+05 

-0.41700+03 

0.40020-02 

0.42410-01 

7 -0.1652D+00 

0.8449D+00 

-0.63650-01 

0.37800-01 

0!.76520+01 

0. 57630+01 

0.91840+04 

0.84040+03 

0.49880-02 

0.33540-01 

8 —0.26760 + CO 

0.5813D+0C 

-C. 29490+00 

-0. 14520-02 

0.81780+01 

0.44670+01 

0,11490+05 

0.54910+03 

0.82060-02 

-C. 66710-02 

9 -0.3934D+00 

0.34030-01 

-0.16370+00 

0. 12200-01 

.0.82160+01 

0.3083D+01 

0.1778D+05 

-0. 39980+03 

0.1130D-QI 

-0.11410-01 

10 -C. 38310+00 

-C.73G9D-01 

0.75820-01 

0.24750-02 

0.04930+01 

0.17330+01 

0. 1166D+05 

0.39160+02 

0.20330-02 

0.29260-02 

11 -0.37430+00 

-0.23370-01 

0.64570-01 

0. 10340-02 

0.87000+01 

0.3743D+00 





FRAG NO. 

FCGU ■ 

« * FCGW = 

ALFA * 

FRUV “ 

FRWV « 

* FRAV * 


1 

G.4747860+C1 6.3549220+01 -0. 

1586030+01 

0.4534190+04 

-0 .2503790*03 -0.1665010+06 



IMPACT IT* 322 ELEMENT NG. * 8 FRAGMENT NO. * l 

LOCATION CN ELEMENT * 0.3850760+CC PENETRATION DlSt * 0.5795540-03 


CURRENT TIME CYCLf' FRAGMENT KINETIC ENERGY 

245 1 0.8082560+05 

WORK INPUT INTO RING TO TIME STEP <245 ■ , o/709329D+05 

RING KINETIC ENERGY AT TIME STEP 245 « 0.1262130+05 

RING PLASTIC FNERGY TO TIME STEP 245 ■ 0.6219270+03 

RING PLASTIC WORK TO TIME 5TEP 245 ■ 0.559764D+05 

ENERGY STCRED i I N ELASTIC RESTRAINTS a 0.1713320+04 


J= 245 ' TIME* 0.245000-03 

r V W‘ PS I CM COPY * 

1 O.c 0.0 -0.22640+00 -0:i2l5D-01 0-0 

2 0. 14460-01 -0. 27040+00 -0.15100+00 0.29990-02 0.133BD+01 

3 C. 62580-01 -0.3694D+00 0.23660-01 0.20990-01 0.26630+01 

4 , 0.1372D+00 -0.17480+00 0.21950+00-0.29440-02 0*40080+01 

5 0.10720+00 0.2561D+00 0.36280+00 -0.1901D-02 0.53700+01 

6 -0,65040-01 0.9263D+00 0. 24340+00 0.5214D-01 0.67840+01 

7 -0,17800+00 0. 58040+00 0.26900-01 0.40700-01 0.7754D+01 


COPZ ' L H STRAINUN) STRAINIOUT) 
0 .87330 +01 0*32170+05 -0.18150*04 0.21670-01 0.57120-02 
0.83560+01 0.26590+05 -0.33850+04 0.3069D-01 -0.36750-02 
0. 79290+01 0. 25950+05 -0.22020+04 0.31310-01 -0. 43830-02 
0.75630+01 0.34140+05 0-13080+04 0.31140-01 0.69350-02 
C. 72090+01 0.22900+05 0.7727D+03 0.60540-01 0,77810-01 
0.68770+01 0.21560+05 -0.12S8D+04 0. 75490-02 0.37330-01 
0.58530+01 0.14530+05 0.11100+04 0.19190-02 0.41400-01 


8 -0*29 77D+C0 0.84210+00 -C.2928D+00 0.52800-02 0.83960+01 0.46120+01 0.60300+04 -0. 12190*04 0.66020-03 0.2603D-02 

9 -0.47960+00 0. 22120+00 -0.31500+00 -0.32760-01 0.B377D+O1 0.32260+01 -0.10530+05 -0.57480+03 0.14370-01 -0.20480-01 

10 -0.50840+00 -0 .90680-0 1 0.5233D-01 0.10250-01 Q.8i»560+0i 0.10540+01 0.31860+04 -0.15750+03 0.2462C-Q 2 -0.11300-02 

11 -C. 49210+00 -0.47680-01 0-96020-01 0.17580-01 0,86650+01 0.4921D+00 

FRAG N0.= PCGU * FCGW - ALFA » FRUV ■ FRWV - FRAV * 

1 0.4927270+01’ 0.354020D+C1 -0.1652040+01 0.4452460+04 -0.2090900+03 -0.1640690+04 
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CURRENT T I f 6 CYCLE FRAGMENT KINETIC ENERGY 

405 1 0.4356500+05 

WORK INPUT INTO RING TO TIME STEP 405 * 0.1081940+06 

R I AG KINETIC ENERGY AT TIME STEP 405 * 0.1026100+05 

RING ELASTIC ENERGY TO TIHE STEP 405 l * 3 0.108282D+04 

RING PLASTIC WORK TO TIMF STEP 405 * 0.9103Q6D+C5 

FNFRCY STCREC IN ELASTIC RESTRAINTS - 0.5819140+04 


J* 4C5 1 1 ME a 0.405000-03 


1 

V 

W 

PSI 

Chi 

COPY 

COPZ 

L 

M 

STRA IN ( IN) 

STRAIN(DUT) 

1 

C.C 

O.G 

-0. 34660+00 

-0. 42220-01 

0.0 

0.87330+01 

0. 79920+05 

-0.63550+03 

0.33480-01 

0. 93790-02 

2 

C.4703D-03 

-0.41890+00 

-0.23300+00 

-0.33100-03 

0.13010+01 

0.82120+01 

0.76210+05 

0.6531D+02 

0.5337D-0 1 

-0. 1443D-02 

3 

0.10720+00 

-0. 54900+00 

0.46070-01 

0.29290-01 

0.26310+01 

0.77500+01 

0-62630+05 

-0.31730+03 

0.39830-01 

0.30650-02 

4 

0.19350+00 

-0.31490+00 

0.24780+00 

-0.23870-02 

0.39940+01 

0.74130+01 

0.50510+05 

-0.36420+03 

0.41130-01 

C. 15830-01 

5 

0.16760+00 

0.15940+00 

0.39690+00 

-0. 35740-02 

0.53860+01 

0.7L280+01 

0.34420+05 

-0. 15630+03 

0.77050-01 

0. 78950-01 

6 

-C. 13490-01 

C. 94340+00 

0.37830+00 

0.28090-01 

0. 68330 + 01 

C. 68520+01 

0.32310+05 

-0.14390+03 

0. 49230-01 

0.69340-01 

7 

-C. 1883D+C0 

C • 1392D + 0 1 

0.23110+00 

0.37C9D-01 

0.80810+01 

0. 61040+01 

0.18090+05 

0.72540+02 

0.21960-01 

0. 527 ID— 01 

8 

-0. 36790+00 

0. 14980 + 01 

-0.18380-01 

0.6667D-01 

0.89490+01 

0. 49720+01 

0. 74100+04 

-0.10520+03 

0.1480D-01 

0.56640-01 

9 

-0.56I50+C0 

0. 1150D + 01 

-0.40130+00 

-0.37630-01 

0. 92260 + 01 

0.35880+01 

0.55170+04 

0.87370+03 

-0-1291D-01 

-0. 10100-01 

1C 

-0.e764C+Q0 

0.29630+00 

-0.43810+00 

-0.72950-01 

C. 87810+01 

0.22780+01 

0.4L72D+04 

-0.3780D+03 

0.20060-01 

-0.16080-01 

11 

-C.51C0D+C0 

-C. 11800 + OC 

0. 13670-01 

0.17280-01 

0.86150+01 

0.91000+00 






FRAG NO. 

.= FCGU * 

i FCGW = 

ALFA - 

FRUV 3 

FPWV 3 

FRAV * 



1 0.556975D + C1 0. 3545210 + 01 -0. 1872380+01 0.3326730+04 -0 . 19987CD+03 -0.1175050 + 04 

IMPACT IT* 433 ELEMENT NO- - 5 FRAGMENT NO. 3 l 

LOCATION ON FLEMENT - 0.5443780+00 PENETRATION OIST * 0.2551570-03 

CURRENT TIME CYCLE FRAGMENT KINETIC ENERGY 

445 1 0.4253710+05 

WORK INPUT r NTO RING TO TIME STEP 445 * 0.1092210+06 

RING KINETIC ENERGY AT TIMF STEP 445 * 0.8261220+04 

RING ELASTIC ENERGY TO TIME STEP 445 3 0.292276D + 03 

RING PLASTIC WORK TO TIME STEP 445 3 0. 9304810+05 

ENERGY STCRED IN ELASTIC RESTRAINTS * 0.7619800+04 


J 3 . 445 TIME 3 0.445000-03 


I 

V 

W 

PSI 

CHI 

COPY 

. COPZ 

L 

H 

STRAIN(IN) 

STRAIN! OUT) 

1 

o.c 

0.0 

-0.35830+00 

-C. 48080-01 

0.0 

0.87330+01 

0.29630+05 

-0.61690+03 

0.35710-01 

0.68780-02 

2 

-c. 88C90-04 

-0.41930+00 

— 0.2220D+00 

0.1768D-02 

0.13000+01 

0.82110+01 

0,25540+05 

0.94840+03 

0.49620-01 

0.16880-02 

3 

0-10630+00 

-0 • 5540D+00 

C.2200D— 01 

0.28750-01 

0.26290+01 

0.77460+01 

0.19870+05 

-0.87070+03 

0.40690-01 

-0. 1122D-02 

4 

0.19680+00 

-0.34380+00 

0.25160+00 

-0.32640-02 

0.3984D+01 

0.73860+01 

0.1787D+05 

-0.44050+03 

0.40140-01 

0.12330-01 

5 

0.16210+00 

C.1950D+00 

C.4154D+00 

-*0.12000-01 

0.5379D+01 

0.71280+01 

0.13180+05 

-0.44820+03 

0.75640-01 

0.75710-01 

6 

—0. 2883D-01 

0.55230+00 

0. 40910+00 

0.14100-01 

0.68280+01 

0. 68690+01 

0.19190+05 

-0.68170+03 

0.49700-01 

0.6570 D- 01 

7 

-C. 23400+00 

0.14590*01 

0.2914D+00 

0.18710-01 

0.81080+01 

0.61800+01 

0. 13110+05 

0.55370+03 

0.1899D-01 

0.54330-01 

8 

-0. 44180+00 

0.16270+01 

0.48670-02 

0.66140-01 

0.90300+01 

0.50970+01 

0.90760+04 

-0.41030+03 

0.16930-01 

0.55020-01 

9 

-0.6462D+00 

0.13300+01 

-0.34390+00 

-0.15790-01 

0. 93710+01 

0.3724D+OL 

0.54650+04 

0.9626D+03 

-0.19370-01 

-0.4944D-02 

10 

-0. 97100+00 

0.507CD+00 

-0.50170+00 

—0. 104SD+00 

0.89740+01 

0.24040+01 

0.55560+04 

0.16260+02 

0.15860-01 

-0.11290-01 

u 

-0.10670+01 

-C . i 1490+00 

-0. 16310+00 

0.1C32D-01 

0.8618D+0I 

0.10670+01 






FRAG NO. 

3 FCGU ■ 

FCGW 3 

ALFA = 

FRUV = 

FRWV ■ 

■ FRAV 3 



l 0.5702330+01 0.353656D+C1 -0.1919160+01 0.3289030+04 -0.249769D+Q3 -0.1150440+04 

IMPACT I T- 458 ELEMENT NO. = 6 FRAGMENT NO. = 1 

LOCATION GN ELEMENT 3 0.858Q16D+0C PENETRATION DIST * 0.3580180-03 
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CURRENT T I HE CYCLE FRAGMENT KINETIC ENERGY 

485 1 0.408357D+05 

WORK INPUT INTO RING TO TIME STEP 485 * 0.1109230+06 

RING KINETIC ENERGY AT TIME STEP 485 » 0.665037D+04 

RING ELASTIC ENERGY TC TIME STEP 485 = 0.2021320+03 

PING PLASTIC WORK TO TIME STEP 485 * 0.9456840+05 

ENEPCY STCREO IN ELASTIC RESTRAINTS * 0.9501980+04 


485 TIME* 0. 485000-03 


I V 

w 

PSI CH COPY 

COPZ L 

K STRAIN (INI 

STRAIN! CUT ) 

l 0.0 

o.c 

-0.34500+00 -0.45800-01 0.0 

0.87330+01 -0.36780+04 

0. 63190+03 0.31010-01 

0.627C0-02 


2 

-0.25240-02 

-0 .4 1440 + CQ 

-0.22820+00 — 0. 177CO-02 

C.1299D+01 

0.82170+01 

-0.2996D+04 

0.78360+03 

0.47500-01 

-0 *10540-02 

3 

C. 49010-01 

-0.55880+00 

0.1899D-01 0.27380-01 

0.26210+01 

Q.7743D+QL 

-0.12790+05 

-0.84640+03 

0.37630-01 

-0.40720-02 

4 

0.18820+00 

-0.35440+00 

0.2474D+00 -0.62010-02 

0.39710+01 

0.73800+01 

-0.9263C+04 

-0. 94610+03 

0*38740-01 

0*82990— C2 

5 

0.15340+00 

0. 17870+00 

0.42780+00 -0.20570-01 

0.53620+01 

0.71200+01 

-0.53890+04 

-0*58780+03 

0.74040-01 

0.73250-01 

6 

-C. 63190-01 

C. 971 10+C0 

0. 42640+00 0.50280-02 

0.68170+01 

0.69070+01 

-0.51850+02 

-0*10230+04 

0.49830-01 

C.6155D-CI 

7 

-0.29400+00 

0.15160+01 

0.33950+0P 0.16070-02 

0.81190+01 

0.62620+01 

0.21090+03 

0*52080+03 

0.1734D-01 

0.52560-01 

8 

-0.52140+00 

0.17C80+01 

0.54200-01 0*63090-01 

0.90670+01 

0.52050+01 

0.62290+04 

-0.32810+03 

0.15980-01 

0.5509D-01 

9 

-0. 73550+00 

0. 1479D+0I 

-C. 30360+00 -0.38340-02 

0.94650+01 

0.38550+01 

0.25780+04 

0*92650+03 

-0.2105D-01 

-0. 1669D-02 

10 

-0.10560+01 
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FIG. A. 2 NOMENCLATURE FOR GEOMETRY, COORDINATES , AND DISPLACEMENTS OF 
ARBITRARILY-CURVED VARIABLE-THICKNESS RING ELEMENTS 
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FIG. A. 3 SCHEMATICS FOR THE SUPPORT CONDITIONS OF THE STRUCTURE 
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Distributed Elastic Foundation Provisions 


FIG. A. 3 CONCLUDED 



PIG. a. 4 SCHEMATIC OF POSSIBLE PIECEWISE LINEAR REPRESENTATION 
OF UNIAXIAL STATIC STRESS-STRAIN MATERIAL BEHAVIOR 
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FIG. A. 6 EXAMPLE PROBLEM: VARIABLE-THICKNESS 90-DEG PARTIAL. RING (DEFLECTOR) 
WITH UNIFORM ELASTIC FOUNDATION APPLIED TO A PORTION OF THE RING 


APPENDIX B 


SUMMARY OF THE • CAPABILITIES' OF THE COMPUTER CODES JET 1 , JET 2 , AND JET 3 
FOR PREDICTING TWO-DIMENSIONAL TRANSIENT RESPONSES OF RING STRUCTURES 


This appendix is intended to provide for the reader a convenient tabular 
summary of the principal features and capabilities of the two-dimensional tran- 
sient large-deflection elastic-plastic structural response ring codes JET 1 
(Ref- 15} , JET 2 (Ref. 16) , and JET 3A-3D (Ref. 24) developed under NASA 
NGR' 22-009-339. The present code CIVM-JET-4A has been developed by combining 
the CIVM procedure with a modified version of the JET 3C twordimensional struc- 
tural response code. 

The JET 1 code of Ref. 15 pertains to single-layer complete, uniform- 
thickness, initially-circular rings of either temperature-independent or tempera- 
ture dependent material properties. These rings may be subjected to prescribed ; 
(a) initial velocities, (b) transient mechanical loading, and/or (c) steady 
nonuniform temperatures. The finite-difference method employed in this code 
had been shown previously (Ref. 12) to provide reliable predictions for the 
case of temperature- independent material properties. 

The JET 2 code was written in order to extend this finite-difference 
analysis capability • to treat multilayer rings — cases anticipated to be of 
future concern. In the interests of efficiency and the minimization of com- 
puter storage requirements, temperature-dependent material properties and 
thermal loading features were omitted from JET 2; if these omitted features 
should turn out to be needed urgently (but this, thus far, has not been the 
case) , they could be added later. 

Since the JET 1 and JET 2 codes pertained to initially-circular, complete 
rings of uniform thickness whereas there was interest also in variable— thickness-, 
arbitrarily curved, partial as well as complete rings, the JET 3 series of codes 
was developed. To accommodate these latter features as well as a variety of 
types of (1) boundary conditions, (2) elastic-foundation supports, and (3) 
point elastic supports ,' the more versatile finite-element analysis procedure 
was developed and, employed. For efficiency and user convenience, four versions 
of the JET 3 program were developed; each version accommodates both complete 
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rings and partial rings. JET 3A and JET 3B pertain to uniform-thickness, 
initially-circular rings, and employ, respectively, the central-difference 
and the Houbolt finite-difference time operator; for certain cases, the 
latter finite-difference time operator may permit more economic converged 
transient response predictions than the former. ' The codes JET 3C and JET 3D 
are corresponding codes which accommodate variable-thickness, arbitrarily- 
curved rings. 

In all of these codes (JET 1 through JET 3D) , the stimulii: (1) initial 
velocity or impulse conditions and/or (2) transient mechanical loading must be 
prescribed by the user or analyst. The externally-applied forces experienced 
by a complete or a partial ring from fragment impact are not provided within 
these codes. The user must supply his own estimate of the distribution and 
time histories of these forces. However, in the CIVM-JET-4A code, fragment/ 
ring interaction and response effects are handled internally automatically, 
for the idealized single-fragment and n-fragment cases provided and discussed 
in Appendix A. 

In convenient tabular form, the principal features- and capabilities 
of idle codes JET 1, JET2, and JET 3A-3D are given in ths following: 
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Feature 

JET 1 
(Ref .15) 

JET 2 
(Ref .16) 

JET 3A 
(Ref. 24) 

JET -3B 
(Ref .24) 

JET 3C 
(Ref. 24) 

JET 3D 
(Ref. 24) 

Type of Spatial 







Analysis Formulation 

Finite Difference 

X 

X 

- 

- 


- 

Finite Element 


— 

X 

X 

X 

X 

I Type of Finite-Difference 






Time Operator 

Central Difference 

X 

X 

X 

- 

X 

— 

Houbolt (Backward 
Difference) 

- 

- 

. 

X 

- . 

X 

Ring Geometry 

Complete Ring 

X 

X 

X 

X 

X 

X 

Partial Ring 


- 

X 

X 

X 

X 

Initial Configuration 
Circular 

X 

X 

X 

X 

X 

X 

Arb. Curved 

- 

- 

- 

- 

X 

X 

Constant Thickness 

X 

X 

X 

X 

X 

X 

Variable Thickness 

- 

- 

- 

- 

X 

« X. 

Single Layer 

X 

X 

X 

X 

' X 

X 

Multilayer Hard- 
Bonded (1 to 3 


X 


_ , 

— 

— 

layers) 

Boundary Conditions 
Ideally Clamped 



X 

X 

X 

X 

Hinged Fixed 

- 

- 

' X 

X 

X 

X 

Symmetry 

- 

- 

X 

X 

X 

X 

Free 

— 


X 

•X 

X 

X 

Other Support- Conditions 
Distributed Elastic 
Foundation 



• X 

X 

X 

X 

Point Elastic Springs 



X 

X 

X 

X* 
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Feature 

JET 1 

JET 2 

JET 3A 

JET 3B 

JET 3C 

JET 3D 

Material 







Single Material 

X 

- 

X 

X 

X 

x 

Different for Each Layer 

- 

X 

- 

- 

- 

- 

Homogeneous 

X 

' X 

X 

X 

X 

X 

Initially Isotropic 

X 

X 

X 

X 

X 

X I 

Temperature Independent 

X 

X 

X 

X 

' X 

X 

Temperature Dependent 

X 

- 

- 


- 

- 

EL 

X 

X 

X 

X 

X 

X 

EL-PP 

X 

X 

X 

X 

X 

X 

EL-LSH 

X 

X 

X 

X 

X 

X 

EL-SH 

X 

X 

X 

X 

X 

X 

EL-SH-SR 

X 

X 

X 

X 

X . 

X 

Stimulii 

Initial Velocity 







Arbitrary 

Half-Sine over each 

X 

X 

X 

X 

X 

X 

of Selected Regions 

X 

X 

X 

X 

X 

X 

Mechanical Loading 







Arbitrary Spatial 
Distribution with 
Arb . Time History 


X 

X 

X 

X 

X 

Half-Sine over each 







of Selected Regions 

X 

X 

X 

X 

X 

X 

Triangular Time 
History 

X 

X 

X 

X 

X 

X 

Arbitrary Time 
History 

- 

X 

X 

X . 

x 

X 

Thermal Loads (Temp. 
Dis tribution ) 







Distribution Thru 
Thickness 

X 


- 

- 

- 

— 

Time-Independent 
Prescribed Circum- 
ferential Distribu- 
tion 

X 

- 

- 

- 

- 
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Feature 

JET 1 

JET 2 

JET 3A 

JET 3B 

JET 3C 

JET 3D 

Deformations: Kirchhoff 







Type Only 







Small 

X 

X 

X 

X . 

X 

X 

Arbitrarily Large 

' X 

X 

X 

X 

X 

X 

OUTPUT INFORMATION 







At Selected Times 




■ 



Energy/Work Type and 
Amount 

X 

X 

X 

X 

X 

X 

Nodal Station Data 






- 

Locations Y , Z 

X 

X 

X 

X ■ 

X 

X 

Di splacements 

- 

- 

X 

. X 

X 

» X 

Moment Resultant 
Circum. Force 

X 

X 

X 

X ' 

X 

X 

Resultant 

X 

X 

X 

X 

X 

X 

Circumferential Strains 







inner Surface 

X 

X 

X 

.X 

X 

X 

Outer Surface 
Location where Pre- 
scribed Value is 

X 

* X 

X 

X 

X 

X 

Exceeded 

- 

X 

X 

X 

X 

X 

At Certain Other Times 







Time of First Yielding 
Time when Strain First 

X 

X - 

- 


- 

- 

Exceeds a Prescribed 
Value 

_ 

X 

X 

X 

X 

X 

Time, Location, and 







Value of Largest 
Strain Reached Dur- ■ 
ing Run 

- 

- 

X 

x- 

X 

X 

CAPACITY INFORMATION 





• 


Maximum No. of Finite- 
Difference Stations* 

100 

100 

- 

- 

- 

- 

Maximum No. of Finite 

" 



- 



Elements* 



50 

50. 

50 

50 


These limits can be circumvented by altering the dimensions of appropriate 
program variables (see each source reference) . 
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